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Introduction 


This  document  is  volume  I(  of  an  M.  Phil,  thesis  representing  a  text  generation  system.  This  portion 
contains  detailed  system  software  listings  for  the  interested  implementor.  All  code  is  clean  and  simple  to 
iindeistand.  Mneiiionic  variables  and  function  names  pervade  the  software. 

1.1  Software  Methodology 

The  software  methodology  adopted  follows  from  the  top-down  refinement  approach  to  structured  pro¬ 
gramming.  System  modularity  together  with  localisation  of  procedures  combine  to  provide  efficiency  and 
consistency.  Furthermore,  global  variables  are  minimised,  iterative  constructs  are  replaced  with  elegant  tail 
recursion,  an<l  goto  statements  are  forbidden.  This  good  programming  practise,  consistent  throughout  the 
generation  system,  should  make  the  code  very  accessible  and,  hopefully,  reusable  with  minimal  effort.  Where 
primitive  functions  were  repealed  frequently,  macros  were  developed  for  rapid  execution. 

1.2  System  Organisation 

?  The  software  is  listed  according  to  the  flow  of  information  in  the  system.  First,  the  main  module,  which 
loads  in  all  the  sub-modules,  is  presented.  Following  this  ate  the  mechanisms  which  interface  the  linguislical 
representations  with  the  underlying  knowledge  representation.  Then  text  strategies  are  illustrated  followed 
by  software  for  semantic,  relational  and  syntactic  analysis.  A  significant  investigation  was  performed  on  the 
development  of  a  successful  focus  selection  algorithm,  which  is  also  presented. 

The  generation  module  has  a  feature  dictionary  system  together  with  unification  routines  for  the  com¬ 
parison  of  .syntactic  features  and  generation  of  well  formed  grammatical  constituents.  Finally,  the  realisation 
routines  are  presented  (including  lineatisaiion,  morphological  synthesis  and  orthographic  formating).  The 
knowledge  sources  for  testing  are  presented  followed  by  some  system  output. 

All  software  is  well  documented  and  includes  a  title,  purpose,  copywritc,  and  often  a  linguistic  theory 
or  principle  behind  the  code.  Each  function  is  described  in  English  so  that  even  hacker's  who  speak  dialects 


other  than  LISP  can  understand. 
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A  Report  Generator 


CHAPTER  1 

Introduction 

This  document  is  volume  11  of  an  M.  Phil,  thesis  representing  a  text  generation  system.  This  portion 
contains  detailed  system  software  listings  for  the  interested  implementor.  All  code  is  clean  and  simple  to 
understand.  Mnemonic  variables  and  function  names  pervade  the  software. 

1.1  Software  Methodology 

The  software  methodology  adopted  follows  from  the  top-down  refinement  approach  to  structured  pro¬ 
gramming.  System  modularity  together  with  localisation  of  procedures  combine  to  provide  efficiency  and 
consistency.  Furthermore,  global  variables  ate  minimised,  iterative  constructs  are  replaced  with  elegant  tail 
recursion,  and  goto  statements  are  forbidden.  This  good  programming  practise,  consistent  throughout  the 
generation  system,  should  make  the  code  very  accessible  and,  hopefully,  reusable  with  minimal  effort.  Where 
primitive  functions  were  repeated  frequently,  macros  were  developed  for  rapid  execution. 

1.2  System  Organisation 

The  software  is  listed  according  to  the  flow  of  information  in  the  system.  First,  the  main  module,  which 
loads  in  all  the  sub'modules,  is  presented.  Following  this  are  the  mechanisms  which  interface  the  linguistical 
representations  with  the  underlying  knowledge  representation.  Then  text  strategies  are  illustrated  followed 
by  software  for  semantic,  relational  and  syntactic  analysis.  A  significant  investigation  was  performed  on  the 
development  of  a  successful  focus  selection  algorithm,  which  is  also  presented. 

The  generation  module  has  a  feature  dictionary  system  together  with  unification  routines  for  the  com¬ 
parison  of  syntactic  features  and  generation  of  well  formed  grammatical  constituents.  Finally,  the  realisation 
routines  are  presented  (including  linearisation,  morphological  synthesis  and  orthographic  formating).  The 
knowledge  sources  for  testing  are  presented  followed  by  some  system  output. 

All  software  is  well  documented  and  includes  a  title,  purpose,  copywrile,  and  often  a  linguistic  theory 
or  principle  behind  the  code.  Each  function  is  described  in  English  so  that  even  hacker's  who  speak  dialects 
other  than  LISP  can  understand. 
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6EMWY"S  KWQWLEDSE  AMD  PROCESSES 

a 


grammar 
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auBPAai 


ewnrAiBfiriis 


A  brain  is  a  region. 


S  [  declarative  active  1 


NP  [  sing  3p  masch 


laakAirDioniaiL 


PREDICATE 
SUBJECT 
DIRECT  OBJECT 
INDIRECT  OBJECT 


VP  [  sing  3p  a^ve  ] 

COPULA  DET  NOUN 
I  I. 

IS  a  region 


FOCUS  LIST 


SURFACE  FORM 


auMABnrDB 


ACTION  INSTRUMENT  TIME 

AGENT  RECIPIENT  STATE 

PATIENT  BENEFICIARY  MANNER 


raOBHAirDB 


DBnSWLailBS 


CONTEXT:  given/new 

LOCAL  FOCUS:  past  foci,  current  fous,  future  foci  J 
GLOBAL  FOCUS:  implicit,  explicit 


DISCOURSE  TOPIC:  kb  entity 

DISCOURSE  GOAL:  DEFINE/EXPLAIN/COMPARE 

RHETORICAL  PREDICATE: 

definition  brain  raeion  (location  skull) 


(brain  (super-class  (value  organ)) 

(sub-class  (value left- hem  right- hem)) 
(dda  (value  (location  skull))) 

(tgpe  (value  region)) 

(Importance  (value  10)) 

(damage  (value?))) 


HOW?  WHY?  WHEN?  WHAT? 


GENNY  "  Generation  Process 


iwnw 


Select  Text  Structure 

Determine  Discourse  Goal 


Focus  Globally  on  Relevant  Knowledge 

Create  a  Knowledge  Vista 

Instantiate  Rhetorical  Predicates  using  KB 


Focus  Locally  on  Connected  Knowledge 

Select  -Rhetorical  Predicates 


Transform  Rhetorical  Proposition 
to  Deep  Case  Structure 


Make  Surface  Decisions  constrained  by  Pragmatics 


Universal  Language  Representation  for  Portability 


Sentential  Realization 

lexical  translation  of  knowledge  base  ■  predicates 

unification  with  grammar 

linearization 

morphological  generation 

orthographic  synthesis 


I 
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Sun  Au9  30  15:01:37  1987 

//////////////////////////////////////////////////////////////////////////// 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

I 

HODVIB:  TEXT  OSNSKATOS  —  NAllf  NODtILB  j 

PURPOSK:  To  9«n«rato  toxt  from  •  fra»*  bosod  oxport  Bystoa  for  j 

di«9nosl8  of  brain  dlaordars.  | 

Tha  ayataa  aaploya  toxt  atructuroa  and  focua  aachaniaaa  j 

to  aynthaaiaa  wall  focuaad  and  coharant  taxt.  | 

Tha  ayatan  can  ba  viawad  aa  conaiating  of  a  stratagic  and  | 

tactical  conponant .  | 

I 

STRATEQZC:  KB  quary  Taxt  Stucturaa  — >  Rhatorical  Pradicataa  f 

I 

Maaaagaa  ] 

— >  Daap  Casa  ] 

— >  Ralational  Orannar  | 

— >  QPSO  Unification  Qrannar  with  Paaturaa  k  Function  j 

— >  Linaarlaar  ] 

— >  Morphology  and  Orthography  | 


Analyaia  of  hunan  producad  taxt  auggaata  that  individuals  j 
utiliaa  conaion  atratagiaa  of  diacouraa  to  achiava  a  | 

particular  diacouraa  goal.  Thay  ara  conatralnad  in  raallaing) 
thia  diacouraa  plan  by  choosing  knowladga  aaliant  to  tha  | 

diacouraa  topic  aa  wall  aa  uttaiing  acta  which  ara  connactad  | 
via  thair  focua  of  attantion  aa  wall  aa  thair  rola  in  tha  | 

taxt  (as  auggaatad  by  contant,  varb  cholca,  and  laxical  | 

connactivas ) .  OBNRT  addraasad  thraa  diacouraa  goals:  | 

DBPZNE,  EXPLAIM,  and  COMPARE.  Purtharnora.  tha  ganarator  | 

auggaata  a  rapraaantatlon  which  holds  proniaa  to  ba  j 

indapandant  of  taxt-typa,  doaiain,  knowladga  fornaliaia  and  j 
(possibly)  languaga.  j 

I 

OWHBR:  copywrita  Mark  T.  Maybury,  May,  1987.  | 

I 

WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

//////////////////////////////////////////////////////////////////////////// 


(includa  support. 1)  ;  ayatan  support  routlnaa 


;  STRATBQIC  OBMERATIOM 


TACTlCAb: 


LZNaUlSTZC 

PRIHClPtBS: 


(includa  f ocus . 1 ) 

( includa  anaphora . 1 ) 
(includa  kb^intarf aca . 1 ) 
(includa  pradicataa . 1 ) 
(includa  taxt.l) 

;  PUllCTIOlfAL  TRAIfSLATIOM 


focua  of  attantion  atratagiae/plana 
pronoblnaliaatlon  davicaa 
tntarfaca  to  kb 

rhatorical  pradlcata  Instantiation 
thano'^achaaa  taxt  atructuroa 


(includa  translata.l) 
(includa  ralat ions Igran . 1 ) 

;  TACTICAL  OENERATION 


rhatorical  pradlcata  «->  daap  caaa  atructura 
daap  caaa  atructura  ->  ralational  grannar 


(Includa  ganarata) 

(includa  taal isat ion . 1) 

(includa  norphayn.!) 

(includa  surf  aca_f  om  .  1 ) 

;  LINOUISTIC  +  DOMAIN  KNOWLEDGE 


aurfaca  traa  ganarator  with  unification  grammar 
raallxatlon  routines 
borphologlcal  aynthaaia  routines 
produce  surface  form 


(includa  dictionary.!) 
(includa  graamar) 
(includa  inltialiaa) 


dictionary 
includa  grammar 
system  initialisation 


(aiain) 


call  main  routine 


inltialia*.! 


Sun  Xug  30  15:37:11  1987 


;//////////////////////////////////////////////////////////////////////////// 

r\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

;  MODULE:  XiriTIXLlSE  | 

!  PVHPOSEs  To  Inltlalloo  top  lovol  syston  variablos  ond  knowlad9«  ) 

8tructur«8.  I 

;  OWNER:  copywrit*  Nark  T.  Haybury,  July,  1987.  | 

;  I 

:\\\\N\\\\\\\\\\\S\\\\S\N\\\\\\\\\\N\\\\\\\\\\\\\\\\\\S\\\\\S\\\\\\\S\\\\\\\\ 

!//////////////////////////////////////////////////////////////////////////// 


(praprocaaa  *9raaaar*) 
(aatq  *traclnq‘  1} 

(satq  *9lvan*  nil) 

(aatq  *pradicata-typa8* 


praprocaaa  qraaaar  for  afficlancy 
aat  laval  of  tracking 
no  discouraa  hiatory 

rhatorical  pradicata  typaa  for  chocking 


(dafinition  attributiva  conatituant  illustration  avidanca 
axaapla  cauaa>affact  coapara-^contrast  infaranca}) 


support. 1  Wsd  Aug  19  00:37:52  1907 

://///////////////////////////////////'/////////////////////////////////////// 

;  I 

;  NODULE:  TEXT  GENERATOR  —  SUPPORT  MODULE  I 

PURPOSE:  To  provids  support  routinos  for  tb«  toxt  gonoration  syston.  | 

;  Th«8«  includ%  gonoral  support  routinos  for  aacros,  lo,  and  | 

;  dabugglng.  | 

;  OWNER:  copyvrlt*  Mark  T.  Maybury,  Jun* ,  1907.  j 

;  I 

;\\\\\''\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\V\\\\\\\\\ 
;//////////////////////////////////////////////////////////////////////////// 

;***  daclara  global  variablas,  surroundad  by  for  uniquanoss  *** 

(daclara  (spacial  *pradicata-typa8 *  *givaft*) 

(aacros  t )  ) 

;***  9«naral  support  routinas  *** 

(includa  ''/llsp/llspalds/aacros  .  1 )  ;  usaful  aacro  priaitivas 

(includa  ~/l i sp/1 1 spaids/io . 1 )  :  usaful  lisp  lo  aodula/intarf aca  support 

(includa  '/I iap/ll apaids/8 tack . 1 )  ;  stack  support  routinas 

;**  following  usad  for  dabugging: 

(includa  '/lisp/saaantics/sava . 1 )  ;  routina  to  sava  itaas  to  filas 

(includa  ''/lisp/lispaids/track  .  1 )  ;  tracking  functions 


I 


Mcros .  1 


w*d  Aug  19  03:40:00  1907 


rUHCTION:  Macro  dofinitions  (first,  socond.  third,  hssd,  tail,  ate) 
PURPOSE:  To  parfora  cartain  basic  operations  quickly. 

INPUT:  Varys,  but  ganarally  sona  type  of  list. 

OUTPUT:  Sona  naabar  of  tha  given  list  or  a  value  such  as  t  or  nil. 


args  returns  arguaants  of  a  given  aacro  arguaant  binding  —  la  it  returns 
tha  cadr  of  tha  givan  paraaatar  binding. 

(dafun  args  aacro  (lyst)  '(cadr  ,(cadr  lyst))) 

(dafun  faxprarg  aacro  (lyst)  (list  'car  (cadr  lyst))] 


List  accessing  functions: 


(dafun  first  aacro  (lyst)  '(car  ,(args  lyst))) 

(dafun  second  aacro  (lyst)  '(args  ,(args  lyst))) 

(dafun  third  aacro  (lyst)  ’(caddr  .(args  lyst))) 

(dafun  fourth  aacro  (lyst)  '(cadddr  ,(args  lyst))) 

(dafun  fifth  aacro  (lyst)  '(caddddr  ,(args  lyst))) 
(dafun  sixth  aacro  (lyst)  '(cadddddr  ,(args  lyst))) 
(dafun  seventh  aacro  (lyst)  '(caddddddr  .(args  lyst))) 
(dafun  eighth  aacro  (lyst)  ’(cadddddddr  .(args  lyst))) 
(dafun  ninth  aacro  (lyst)  ' ( caddddddddr  .(args  lyst))) 
(dafun  tenth  aacro  (lyst)  ' ( cadddddddddr  .(args  lyst))) 


(dafun  head  aacro  (lyst)  '(car  .(args  lyst))) 
(dafun  tail  aacro  (lyst)  '(edr  ,(arqs  lyst))) 


io.l 
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MODULE:  10  —  LISP  XMPUT/OUTPUT  TOOLBOX 

PURPOSE:  To  facilltato  tho  dovolopaont  of  usor  intorfacos. 


TERMINAL  PRINTING  FUNCTIONS 

(print^list  list  (optional  punctuation) 

(print-santanca  aantanca  (optional  punctuation) 

(blank  nuabar>-of*>lina8 ) 

(spaca  nuabar-of-spacas ) 

(tall-usar  aasaaga  (optional  nuablanksbafora  nuablanksaf tar  spacasbaf ora ) 
( print-list  list-of-itaas ) 

(vritaln  1 i s t-of-s t  r inga-a toaa-li s t s-or-nuabars ) 

(print-list-coaaas-and  list-of-itaas) 


FUNCTION:  all-but-last 

PURPOSE:  To  raturn  all  but  tha  last  itaa  in  a  givan  list. 

INPUT:  list 

OUTPUT:  list  ainus  tha  last  alaaant 


(dafina  (all-but-last  list) 

(eond  ((null  (tail  list))  nil)  ;  tail  aapty  -->  nil 

(t  (appand  (list  (haad  list))  ;  attach  haad  of  list  to 

(all-but-last  (tail  list))  ;  all  but  last  of  tail 


FUNCTION:  langth-charactars 

PURPOSE:  To  raturn  tha  langth  of  tha  charactars  (plus  1  spaca  batwaan) 

in  a  givan  list . 


(dafina  (langth-charactars  lyst) 

( cond 

((null  lys t )  0 ) 

(t  I*  (langth  (axploda  (haad  lyst))) 
(langth-charactars  (tail  lyst)) 
1 


langth  of  first 
langth  of  rast 
spaca  batwaan  words 


FUNCTION:  print-list 

PURPOSE:  To  print  out  a  list  of  atoais  with  a  spaca  batwaan  aach 

followad  by  propar  punctuation  if  raquastad. 

INPUT:  list  of  words 

OUTPUT:  Words  saparatad  by  ona  spaca,  with  no  spacas  at  and. 

AIDED  BY:  ay-patoB  prints  tha  givan  aton 

last  raturns  tha  last  ita*  in  a  list. 


(dafina  (Ny-patosi  ato»)  (patoii  atoa)  (princ  ”  ”)) 

;«*»l9l9*»li*9t«»«f«««9«»9f6«9«f9t9l*#tl«ftit»tll 


(dafina  (print-list  lyst  (optional  punctuation) 
; »4«94ff It »*••«« ti tl*! •Ifl« tftifff ft «9ffi9«9lt9 
(nape  'ny-patoN  (all-but-last  lyst)) 

(patoa  (car  (last  lyst))) 

( cond 

((aq  punctuation  'spaca)  (princ  ”  " ) ) 

( ( aq  punctuation  'pariod)  (princ  ”.")) 

( ( aq  punctuation  '7)  (princ  ”?*)) 


spaca  aftar  all  but  last 
pilnt  tha  last  ona 
punctuata  proparly 

-  put  a  spaca  at  tha  and 

-  pariod  if  salactad 

-  quastien 


io.l  W*<i  Au9  19  03  :40  :07  1907 

(  ( *<1  punctuation  '!)  (princ  *i*)) 


•xclanat i on 


) 


) 


PURCTXOM:  wrltoln  and  wrltaout 

PURPOSE:  To  output  a  list  of  atoaa,  nunbora.  Hats  and  atrinqa  with 

propar  spacing  and  punctuation,  aa  raquastad. 

INPUT:  A  list  of  output  and  optional  punctuation. 

OUTPUT:  Nica  Pascal  Ilka  output. 


<dafun  wrltaln  faxpr  (outputliat) 

(writaout  outputliat) 

( tarpri  ) 

) 

(dafun  writal  faxpr  (outputliat) 


(writaout  outputliat) 

) 


(dafina  (writaout  outlist) 

(nape  'wrltaoutl  (all-but-laat  outlist)} 

( cond 

((aq  (car  (last  outlist))  'spaca)  (princ  ” 
({aq  (car  (last  outlist)}  'pariod)  (princ 
((aq  (car  (last  outlist))  '?)  (princ  ”?”)) 
((aq  (car  (last  outlist))  '))  (princ  " ) " ) ) 
(t  (wrltaoutl  (car  (last  outliat)))) 

) 


;  call  writaout  faxpr 
;  blank  ona  lina 


;  call  writaout  faxpr 


;  wrltaoutl  all  but  last  alaitants 
;  punctuata  proparly 
”))  ;  put  a  apaca  at  tha  and 

."))  -  pariod  if  aalactad 

;  -  quaation 

;  •>  axclaaation 

;  alsa  print  it  out 


FUNCTION:  wrltaoutl 

PURPOSE:  To  output  a  qivan  itasi  (atom,  list,  nuabar,  or  string). 


(dafina  (wrltaoutl  itasi) 

7*9»lt«9i*9*l«*lt44t994* 

( cond 

((listp  itan)  (print-list  itaai  'spaca))  :  list?  -->  apaca  at  and 
(t  (princ  itan)  (prino  "  " ) )  ;  prints  out  an  atom, 

)  ;  a  string,  or  a  nunbar 


FUNCTION:  blank 

PURPOSE:  To  blank  givan  nunbar  of  linaa 


(dafina  (blank  nunbar) 
(nag  (N  nunbar ) ) 

) 


FUNCTION:  spaca 

PURPOSE:  To  print  n  blank  spacaa  on  a  lina. 


(dafina  (apaca  n) 

(cond  ((aq  n  1)  (princ  "  * ) ) 
(t  (princ  "  ") 

( spaca  ( Bubl  n )  ) 

) 

) 

> 


FUNCTION:  tall-uaar 

PURPOSE:  To  output  a  naaaaga  to  tha  uaar  with  optional  blanks  linaa 

bafora  and  aftar  tha  naaaaga,  as  wall  aa  optional  spacaa 


ie.l 
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b*for«  th«  lin*  is  b«gun. 

IMPUT:  a  aassaga  and,  optionally,  #  blanks  bafora  and  aftar, 

apacae  bafora  and  punctuation. 

OUTPUT:  Prints  aassaga  in  propar  foraat  to  standard  output. 


(dafina  (tall-usar  aassaga 

aoptional  nuablanksbaf ora  nuablanksaf tar  spacasbafora  punctuation) 

(cond  ((nuabarp  nuablanksbaf ora )  (blank  nuablanksbafora ) ) ) 

(cond  ((nuabarp  spacasbaf ora )  (spaca  spacasbaf ota ) ) ) 

(print -list  aassaga) 

(cond  ((nuabarp  nuablanksaftar )  (blank  nuablanksaf tar )) ) 

) 


FUNCTION:  opan-input 

PURPOSE:  To  opan  a  port  for  input. 

INPUT:  Naaa  of  tha  fila  to  ba  ganaratad. 

OUTPUT:  Raturns  input  port  syabol.  call  by  (satq  $lnport  (opan-input 


(dafina  (opan-input  filanaaa  $inport) 
(satq  $inport  (infila  filanaaa)) 

) 

(dafina  (opan-output  filanaaa  $outport) 
(satq  $outport  (outfila  filanaaa)) 

) 


FUNCTION:  all-but-last 

PURPOSE:  TO  raturn  all  but  tha  last  itaa  in  a  givan  list. 

INPUT:  list 

OUTPUT:  list  ainus  tha  last  alaaant 


(dafina  (all-but-last  list) 


(cond  ((null  (cdr  list))  (cdr  list)) 

(t  (ay-appand  (list  (car  list)) 

(all-but-last  (cdr  List)) 


) 


) 


tail  aapty  — >  ( ) 
attach  haad  of  list  to 
all  but  last  of  tsil 


FUNCTION :  ay-appand 

PURPOSE:  To  appand  tvo  lists  togathar. 

INPUT:  two  lists 

OUTPUT:  first  list  appandad  to  sacond  list 


(dafina  (my-appand  listl  list!) 


(cond  ((null  listl)  list!)  ;  and  of  listl  -  raturn  list! 

(t  (cons  (car  listl)  ;  also  add  Ist  aaabar  of  listl  to 

(ny-appand  (cdr  listl)  list!);  rasult  of  racursing  on  tall 

) 

)  ;  of  listl  and  list! 

) 

) 


FUNCTION;  pr in t-1 1 8 t -coa»as-and 

PURPOSE:  To  print  a  list  with  coaaas  batwaan  4  word  and  bafora  last. 


(dafina  (print-list-coaiNas-and  list-of-itans > 

( cond 

((null  list-of-itans )  nil) 

((aq  (lanqth  list-of-itaiss )  1) 

(Msg  (haad  list-of-ltans )  ”.”) 

) 

((aq  (langth  llst-of-itans )  2) 

(nsg  (haad  list-of-itasts )  "  and  "  (haad  (tail  liat-of-itaas ) )  " . " ) 


■tack.l 


W«d  Aug  19  03:40:26  1987 


PROGRAM:  STACK 

AUTHOR:  Mark  Thosas  Maybury 

DATE:  Rovaabar  17  1986 

PURPOSE:  To  kaap  track  of  stack  oparations. 

NB:  stack  Is  considarad  to  ba  a  global  variabla! 


FUNCTION: 

PURPOSE: 


INPUT: 
OUTPUT : 


inltiallsa-stack 

To  initialisa  a  stack  so  that  it  can  ba  usad  with 
ay-pop  routinas.  Nota  that  unlass  you  initialisa 
nay  gat  unwantad  arrors.  For  axaapla,  if  you  try 
uninitilisad  stack  bafoia  pushing  anything  on  it, 
gat  a  lisp  laval  arror. 

A  synbol  raprasanting  a  stack. 

Nothing,  but  aids  offset  is  sotting  stack  to  nil. 


•y-push  and 
a  stack ,  you 
to  pop  an 
you  will 


(dafaacco  initialisa- stack  (stack) 
Msatg  , stack  nil)  ;  sat  to  nil 

) 


FUNCTION:  ay-push 

PURPOSE:  To  push  a  givan  alaaant  onto  a  givan  stack. 

If  tha  stack  is  aapty,  aaka  it  tha  list  of  giva  itaa. 
Otharwisa  add  tha  alaaant  to  tha  currant  stack  by  using 
INPUT:  Itaa  and  stack 

OUTPUT:  Rabinds  global  variabla. 


cons  . 


(dafaacro  ay-push  (itaa  stack) 

Msatg  , stack  (cons  ,ltan  , stack))) 


FUNCTION:  ay-pop 

PURPOSE:  To  pop  an  itaa  off  a  stack. 

INPUT:  stack 

OUTPUT:  First  alaaant  on  list  or  nil  if  nona. 


(dafaacro  ay-pop  (stack) 

’ ( progl 

(car  , stack) 

(satq  , stack  (edr  , stack)) 

) 

) 

(dafaacro  my-pop2  (stack)  ;  doas  saaa  thing  soaawhat  lass  alagantly 
'  ( and 

(satg  ts  (car  , stack)) 

(satq  , stack  (edr  .stack)) 
ts 

) 

) 


FUNCTION: 

PURPOSE: 

INPUT; 

OUTPUT: 


ay-pop-rasult 

To  pop  an  itaa  off  a  stack  and  raturn  tha  rasult. 
stack 

Rasult  of  popping  itaa  froa  tha  list  (ia  edr  of  list). 


(dafaacro  ay-pop-rasult  (stack) 
Msatg  .stack  (edr  .stack)) 


) 


2 


stack . 1 


Wsd  Aug  19  03:40:27  1987 


PUHCTIOR:  sapty? 

PURPOSE:  To  dotorain*  if  a  stack  is  aapty  or  not. 


(dofin*  (sapty?  stack) 

(if  (null  stack)  thon  t  also  nil) 


FUNCTION:  pssk-stack 

PURPOSE:  To  pook  at  tho  top  of  tha  stack  without  altaring  its  contants. 


(dafina  (paak-stack  stack)  (car  stack}) 


1 


sav* . 1 


Wad  Auq  19  03:46:51  1907 


//////////////////////////////////////////////////////////////////////////// 


MODULE:  SAVE 

PURPOSE:  To  aid  in  dabugqing  by  appanding  or  writing  a  function  to  fila. 

OWHBR:  copywrita  Mark  T.  Maybury,  July,  1987. 


\\\\\\\\\\\\\\\\\\\\\\S\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\N 
///////////////////////////////////// //////////////////////////////// /////// 


(dafina  (sava  axpr) 

(prog  (filaout  raaponsa) 

(asg  R  "Outfila;  "  ) 

(satg  filaout  (raad)) 

(aag  "Appand  ( Y/H) :  " ) 

(satq  raaponsa  (road)) 

( cond 

((or  (aq  raaponsa  'Y)  (aq  raaponsa  'y)) 
(asg  R  "Appanding  itaa") 

(satq  filaout  (outfila  filaout  'a))) 

(t  (satq  filaout  (outfila  filaout)) 

(nag  "Itan  atorad”  N)) 

) 

(tarpri  filaout) 

(tarpri  filaout) 

(pp-forn  axpr  filaout  2) 

(cloaa  filaout) 

) 


gat  fila  for  output 
appand  to  It? 

usar  wants  to  appand 

alaa  writa  ovar 

laft  Margin  sat  at  2 


1 


track . 1 


W«d  AU9  19  03:40:36  1907 


/////////////////////////////////////////////////////////////////////////'' •'^ 

I 

MODULE;  TRACK  I 

PURPOSE:  To  proviso  opocioi  trocing  capobilitloo  for  tho  proqramoar.  I 

I 

^\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\^\\\\\\\\\\\\\\\\\\\^^\\\^\\\\\\\^\^\^^^^^\^ 
//////////////////////////////////////////////////!  ■-  /////////////////////// 


rUNCTIOH:  TRACK 

PURPOSE ; 

TRACK  is  «  built-in  dsbu^gin^  and  ttaca  aachaniSB  which 
allows  tha  prograa  davalopar  and  usar  to  traca  tha  functional 
workings  of  tha  softwara.  This  offars  Bora  flaxibility  and 
graatar  aasa  of  usa  (and  nora  control)  than  tha  built-in 
lisp  TRACE  function.  Tha  laval  of  tracking  can  ba  altarad 
with  aach  run,  dynanically  allowing  Bultipla  lavals  of  tracking 
If  laval-das 1  rad  is  graatar  than  thrashold  raguirad  for  a 
Bassaga  to  print  out,  than  print  it.  A  blanking  routina  is 
also  providad. 


FUTURE  — >  lat  Bassaga  ba  a  body  or  axacutabla  coda.  (Bacro  or  faxpr?) 


(daflna  (track  laval-das 1  rad  thrashold  Bassaga  aoptional  blanks  spacas-baf ora ) 
(  cond 

(  (  ><■  1  aval -das i rad  thrashold)  ;  abova  thrashold? 

(cond  ( spacas-baf ora  (spaca  spacas-bafora  )  )  ) ;  spacas?  spacas-baf ora 
(print-list  Bassaga)  ;  print  Bassaga 

(cond  (blanks  (blank  blanks))  ;  blank  blanks,  if  salactad 

(t  (blank  1))  ;  dafault  to  1 

) 

) 

) 

) 

(dafina  (track-blank  lava I-das i rad  thrashold  nunbar-of-blanks ) 

( cond 

((>»  laval-dasirad  thrashold)  ;  if  abova  thrashold 

(blank  nunbar-of-blanks)  ;  blank  nunbar  of  linas 

) 

) 

) 

(daflna  (track-spaca  laval-dasirad  thrashold  nunbar-of-spacas ) 

( cond 

((>B  laval-das i rad  thrashold)  ;  if  abova  thrashold 

(spaca  nunbar-of-spacas)  ;  spaca  nunbar  of  spacas 

) 

) 

) 


/  Sana  as  track  but  for  functions  to  ba  avaluatad 

(dafina  (trackf  laval-dasirad  thrashold  function  aoptional  blanks  spacas-bafora) 
( cond 

((>a  laval-dasirad  thrashold)  ;  abova  thrashold? 

(cond  (spacas-bafora  (spaca  spacas-bafora)));  spacas?  spacas-baf ora 
(aval  function)  ;  avaluata  function 

(cond  (blanks  (blank  blanks))  ;  blank  blanks,  if  salactad 

(t  (blank  1))  dafault  to  1 

) 

) 

) 

) 


FUNCTION:  track-cpu  | 

PURPOSE:  to  collact  run-tlBa  statistics  for  systais  afficiancy  avaluation.j 


(dafina  (track-cpu  tiaa) 

( cond 

((aq  tiaa  'start)  (ptlaa))  ;  bagin  tracking  procassor 

(  ( aq  tiBa  'finish)  ,*  finish 

(lat*  ((cpu-tlBa  (ptiBa)) 

(procassor  (first  cpu-tiB#)) 

(garbaga  (sacond  cpu-tima))) 

(track  *tracing*  3  '(PROCESSING  TINE)  1) 

(track  *tracing*  3  '(CPU  tiaa  usad  for  procassing:  .procassor}) 

(track  *tracing*  3  '(CPU  tiBa  usad  for  garbaga  Collaction:  , garbaga)) 

) 


SECTION  4 


KNOWLEDGE  BASE  INTERFACE 


■'i 


kb_iat«rfac«.l  Sun  Aug  30  15:03:43  1987 

; /////////////////////////////////////////////////////////. '  V//////////////// 
?\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\^\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\s\\ 

}  I 

:  MOOULS:  KNOWLEDOE  BASE  INTEBEACE  ) 

;  PURPOSE:  To  provld*  accots  to  tho  fcano  basad  knowladga  rapraaantatlon  | 

;  whara  tha  naurophyelolo^lcal  and  nauropsychological  | 

knowladga  is  storad.  j 

OWNER:  copywrita  Hark  T.  Haybury,  Hay,  1987.  j 

;  j 

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
;//////////////////////////////////////////////////////////////////////////// 

(includa  “/diaaart/KB/f rasas . lap )  ;  frasa  knowladga  rsprasantaticn  fornalis 

(Includa  "/dltaar t/KB/cona t ruct^kb. lap)  ;  kb  ganaration  routinas 
(Includa  "/dlssart/KB/f rana_accas8 .1 )  ;  frasa  accaaaing  prinltivas 

;  (includa  brain  kb.lsp)  ;  kb  coi.taining  brain  knowladga 

;  (includa  disorHar^kb . lap )  ;  kb  containing  diaordar  knowladga 


1  /a««r/Bphll/ata/<ll«««rt/Ba/fr«a««.lsp  Sun  Aug  30  15:12:52  1987 

;//////////////////////////////////////////////////////////////////////////// 

;  t 

MODULE:  FRAME  KNOWLBDOE  REPRESEMTATIOM  FORMALISM  I 

PURPOSE:  To  provid*  •  knowlodg*  roprosontation  franawork.  j 

OMMER:  copywrita  Mark  T.  Maybury,  Juna,  1987.  | 

;  1 

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\NN\\\\N\\\\\\\ 

;//////////////////////////////////////////////////////////////////////////// 


FRAME  PROCEDURES  FROM  PATRICK  HENRY  WINSTON'S  BOOK,  LISP.  12  OCT  85 


FQET  ratriavaa  infornation,  givan  f rana-alot-f acat  accaas  path. 


(daflna  (fgat  frana  slot  facat) 

(cdr  <aaaoc  facat  (cdr  {assoc  slot  (cdr  (gat  frana  'fraaa))))))) 


FPUT  placas  Infornation.  givan  f rana-slot-facat  accass  path. 


(dafina  (fput  fraaa  slot  facat  valua) 

(lat  ((valua-Ilst  (follow-path  (list  slot  facat) 

(fgat-frana  frana)})} 
(cond  ((nanbar  valua  valua-list)  nil) 

(t  (rplacd  (last  valua-list)  (list  valua)} 
valua ) ) ) ) 


MY-FPUT  placas  infornation  lika  FPUT,  givan  f rana-slot-f acat  accass  path. 
Tha  diffaranca,  howavar,  is  that  if  you  attaapt  to  put  tha  a  piaca  of 
infornation  into  a  slot  and  that  infornation  is  alraady  thara  than 
MY-FPUT  raturns  tha  valua  of  that  piaca  of  infornation  wharaas  FPUT 
raturns  NIL. 


(dafina  (ny^fput  frana  slot  facat  valua) 

(lat  ((valua«list  (follow-path  (list  slot  facat) 

(fgat-frana  frana)))) 

(cond  (t  (rplacd  (last  valua-list)  (list  valua)) 
valua ) ) ) 

) 


FQET-FRAME  gats  axlsting  frana  structura  or  craatas  ona  if  non-axistant 


(dafina  (fgat-frana  frana) 

(cond  ((gat  frana  'frana)) 

(t  (satf  (gat  frana  'frana)  (list  frana))))) 


Frana  alraady  nada? 

I f  not ,  naka  ona . 


FREMOVE  ranova**  Information,  givan  f rama-slot-f scat  accass  path. 


(dafina  (franova  frana  slot  facat  valua) 

(lat  ((valua-list  (follow-path  (list  slot  facat) 

ifgat-frama  frana)))) 
(cond  ((nanbar  valua  valua-list) 

(dalata  valua  valua-list) 
t ) 

( t  nil ) ) ) ) 


EXTEND  inapacts  first,  using  ASSOC,  and  if  ASSOC  fails,  EXTEND  axtands 
using  RPLACD. 


(dafina  (axtand  kay  a-list) 


/«s«r/^lilX/Bta/di««*rt/KB/f  raaaa.lap 


sun  AU9  30  15:12:53  1967 


(coad  <(n«soc  k«y  <edr  a-list)); 

(t  (c«dr  <rplacd  (last  a-llat)  (Hat  (Hat  kayM))))) 


rOLLOW-PATH  uaaa  CZTBBD  to  push  through  frana  atcuetuca. 


(daflaa  (follow-path  path  a-ltat) 

(eond  ((null  path)  a-llat) 

(t  (follow-path  (cdr  path)  (axtand  (car  path)  a-llat))))} 


POBT-V-0  looka  at  VALUE  facat  of  a  givan  alot  and  than  In  tha  DEFAULT  * 
faeat  if  nothing  ia  found  in  tha  VALUE  facat.  * 


(dafina  (fgat-v-d  fraaa  alot) 

(cond  ((fgat  trana  'valua)) 

((fgat  fraaa  slot  'dafault)))) 


PQBT-V-D-P  cauaaa  all  procaduraa  found  in  tha  IF-REEDBD  facat  to  ba 
axaeutad  if  naithar  VALUE  nor  DEFAULT  facata  halp. 


(dafina  (fgat-v-d-p  fraaa  slot) 

(eond  ((fgat  fraaa  slot  'valua))  ;  Try  valuas  first. 

((fgat  fraaa  slot  ’datault))  ;  Than  try  dafaulta. 

(t  (aapcar  ;  coabina  raaults,  if  any. 

IMlaabda  (daaon)  (funcall  daaon  fraaa  slot)) 

(fgat  fraaa  slot  'if-naadad) ) ) ) ) 


ASK  could  ba  a  vary  popular  occupnat  of  tha  zf-^REEDED  faeat  of  a  slot. 


(dafina  (ask  fraaa  slot) 

(print  MPlassa  supply  a  valua  for  tha 
.slot  slot  In  tha 

.fraaa  fraaa))  :Start  now  lina. 

(tarpri)  ;9at  usar's  answer. 

(lat  ((raaponsa  (raad)))  )Raturn  list  with  answer  if 

(t  nil)))  .'RESPONSE  is  other  than  NIL. 


FOET-I  uses  FQBT-CLA5SBS ,  a  procedure  that  returns  a  list  of  all  fraaas 
that  a  givan  graaa  is  linked  to  by  on  A-KIND-OF  path,  to  give 
valuas  in  fraaas  related  to  givan  fraaa. 


(dafina  (fgat-i  fraaa  slot) 

(fgat-11  ( f gat-classas  fraaa)  slot)) 

(dafina  (fgat-il  franas  slot) 

(cond  ((null  fraaas)  nil) 

((fgat  (car  fraaas)  slot  'value)) 
(t  (fgat-il  (cdr  fraaas)  slot)))) 


?oiva  up? 

;Got  something? 
.•Climb  tree 


r/a^i  l/mtm/i 


;/U/eoa«  t  r  «e  t_iib .  1 


Sun  Aug  30  15:13:09  1987 


COHSTRUCT-PRAMC-KB  u  list  o<  ftuau*  fend  ub*b  MAKB-PRAME  to  »Ako  th«B 

fraaus  wh«n  thoy  «ro  lood«<t  In  fron  m  sourco  fll*. 


(d«fin«  ( eonstruct-f cAno-kb  r*n«s ) 

(BApcar  'anko-fraao  list-of-f raaos ) } 


MAKB-PRAMB  takoB  a  particular  PRAME  and  aBBOciataa  it  with  tha  naaa  of 

tha  particular  frana,  PRAMB^'RAMB,  tha  firat  alaaant  in  tha  list  PRAMS. 


(dafina  (aaka-frana  fraaal 
(lat  <(fraaa-naaa  (ear  fraaa))) 

(satf  (gat  fraaa-naaa  'fraaa)  fraaa))) 

; (dafina  (add-on  linal  lina2) 

(strip-f irat-and-laBt-charactar  linal ) 

:  (eencatanata  linal  lina2)) 

;( dafina  ( fltrip-f i rat-and-last-charactar  1 ) 

;  (iaploda  (ravaraa  (cdr  (ravarsa  (cdr  axpleda  1)})))) 


( dafina  (construct-f rana-db) 

(with-opan-f ila  (loba-fila  'loba.lap  tdak) 

(prog  () 
loop 

(aatg  eurrant-lina  (raadlina  fila  'and-of-f ila ) } 

(if  (not  (agual  eurrant-lina  ' and-of-f ila ) ) 

(cond  ((agual  eurrant-lina  '*)  ((aaka-frana  total-lina) 

(aatq  total-lina  nil))} 
(t  (add-on  currantlina  total-lina)) 

) 

(raturn  ':and  of  fila  raaehad:}) 

(go  loop) 

)  ) 


I 


I  /•■•r/B^ll/Bta/4ias«rt/U/f Sua  Aug  30  15:13:23  1907 

^  I//////////////////////////////////////////////////////////////////////////// 

t  I 

MODULE:  fKANB  ACCBSEXEO  { 

PUEEOSB:  To  proviso  aaoaofiic  prlaltlvos  for  froao  tccott.  j 

OWEBE:  eopyucito  Mark  T.  Haybuty,  3uaa,  1907.  j 

^  ;  I 

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\s\\\\\\\\\\\\\\\\N\\\\\\\ 

;//////////////////////////////////////////////////////////////////////////// 


Praaa  data  ratriaval  I 


;;  taaily 

(daflna  (paranta  araa)  (fgat  araa  'aupar-claaa  'valua)) 

(dafiaa  (ehildran  araa)  (fgat  araa  'aub-elaaa  *valua)) 

(daflaa  (aiblinga  araa) 

(ay-dalata  araa  (apply  'appaad  (aapcar  'ehlldraa  (paiafita  araa))))) 

; (daflna  (ehildran-typa  araa)  (fgat  araa  'aub-^claaa-typa  'valua)) 

;  attributaa 

(dafiaa  (iaportanca  araa)  ( tatagar'>lax  (ficat  (fgat  araa  'iaportanca  'valua)))) 

(daflna  (dda  araa)  (fgat  araa  'dda  'valua))  ;  dlatlngulahing  daacriptiva  attributa 
(daflna  (dda2  araa)  (napear  'aaellat  (fgat  araa  'dda  'valua))) 

(daflna  (dda3  araa)  (napear  'cdc  (fgat  araa  'dda  'valua))) 

(daflna  (aaellat  dda)  (Hat  iflrat  dda)  (tall  dda)))  ;  (a  b  e)  ->  (a  (b  e)) 

(dafiaa  (fraaa*>typa  frana)  (car  (fgat  fraaa  'typa  'valua))) 

(daflna  (daaaga-af-araa  araa)  ( lntagar->lax  (ear  (ravaraa  (fgat  araa  'daaaga  'valua))))) 
(daflna  (doaaln/  (car  (fgat  'axpart>>doaala  'aub-clasa  'valua))) 

(daflna  (gatacora  fraaa  alot  facat) 

(car  (ravaraa  (fgat  frana  slot  facat)))) 

;  pragnatica 

(dafiaa  ( ralavanea  frana)  (fgat  frana  'ralavanca  'valua)) 

(dafiaa  (contaxt  frana)  (fgat  frana  ' dlacoursa-contaxt  'valua)) 


Prana  data  nanipulatlon  ) 


;;  attributaa 

(daflna  (naka-danaga  araa  valua)  (fput  araa  'danaga  'valua  valua)) 

; ;  focus 

(daflna  (placa-ln-vlsta  frana)  (ny-fput  frana  'ralavanca  'valua  'In^vlata)) 

(daflna  (Inpllclt-vlata  frana)  (ny-fput  frana  'ralavanca  'valua  ' Inpllelt-viata )  ) 
(daflna  (nark-pragnatlcs  araa  valua)  (fput  frana  'pragnatica  'valua  valua)) 

(daflna  (placa-ln^contaxt  araa  purpesa)  (fput  araa  ' diacouraa->contaxt  'valua  purpoaa)) 


;  PUlfCTlOM:  intagar>>lax  | 

;  PUKPOSB:  to  eonvart  an  Intagar  to  a  laxlcal  antry.  | 


(daflna  ( lntagar-> lax  nun) 


( cond 


l  (ag 

nun 

1) 

'  ona ) 

(  (ag 

nun 

2) 

'two) 

(  (ag 

nun 

3) 

'  thraa ) 

(  (ag 

nun 

i) 

'  four ) 

( (ag 

nun 

5) 

'fiva) 

( (ag 

nun 

6) 

'six) 

(  (ag 

nun 

7) 

'  savan ) 

(  (ag 

nun 

0) 

'alght ) 

(  (ag 

nun 

9) 

'  nlna ) 

(  (ag 

nun 

10) 

'tan ) 

) 


SECTION  5 


TEXT  MODULE 


i 


fnt.l 


Sun  Aug  30  15:17:37  1907 


//////////////////////////////////////////////////////////////////////////// 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


MODULI:  DX9COU18I  SCHEMA 

SUBSOSI !  To  noho  dlaeourso  doeloloao  on  what  to  aav  noxt  constroinod 
by  ovallablo  knowlodgo  Itron  global  focua  eonatralnta ) ,  tho 
diacourao  goal,  and  local  focua  eonatralnta. 

To  loatantlata  rhatorical  pradlcataa  and  aand  thon  to  tactical 
conponant . 

OWHBB:  eopywrita  Hack  T.  Haybucy,  Juno,  1907. 

$BaaJtr:  t^xt.l,v  l.i  07/00/25  01:11:59  ntn  Exp  $ 


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


PUHCTZOH:  HAZH 

PUBPOSB:  to  begin  OEHHY  after  Inltlaliaation  by  deterining  the 

diacourao  goal  which  ia  characteriaed  by  what  we  are  going  to 
talk  about  (diacourao  focua)  and  how  we  are  going  to  talk  about 
it  (diacourao  atcucture). 

LIHOUXSTIC 

PBZHCZPLES:  Thia  nodula  explolta  knowledge  of  connon  diacourao  atrategies 
together  with  global  and  local  focua  eonatralnta  to  generate 
and  then  realioe  text  for  a  provided  diacourao  goal  (e.g. 
define,  explain,  compare)  and  diacoucae  focua  (e.g.  frame). 

Pirat  a  theme*-8cheme  la  generated,  built  up  by  aub-achema 
and  their  correaponding  rhetorical  predicatea.  Next,  a 
viata  of  aalient  knowledge  ia  aelactad  from  the  knowledge 
baae,  guided  by  the  diacourao  topic.  Then,  globally 
conatrained  by  thia  knowledge  viata,  a  pool  of  relevant 
propoaitiona  ia  generated.  OERNT  then  atepa  through  the 
thene-BCheme ,  aelectlng  propoaitiona  from  the  available  pool 
guided  by  a  local  focua  model.  Theae  are  realiaod  by  a 
tactical  component  which  makea  uae  of  focua  and  context 
to  determine  sentence  structure  and  referring  expresalona, 
and  word  choice  (e.g.  voice,  anaphora,  and  articles). 

The  propoaitiona  are  realised  by  a  threefold  proceaa 
including  semantic  Interpretation,  generation  of  relational 
conatituenta ,  and  building  of  a  syntactic  tree.  The  final 
surface  form  la  determined  by  morphological  and  orthographic 
proceduree.  dERRT  does  not  give  up  (or  crash)  it  ahe  fails 
at  any  one  of  theae  stages.  Instead,  she  degrades  gracefully 
by  atteapting  to  say  anything  that  ahe  can  within  the 
boundrles  of  the  global  and  local  constraints.) 


(define  (main) 


(trackf  ^tracing*  2  Mwelcome)) 

( load-dictionary ) 

( load-kb ) 

(trackf  ^tracing*  1  ' (track-cpu  'start)) 

(let*  ( ( theae-achene  ( discourse-acheae) ) 

(topic  (discourse-topic  theme-scheme}) 
(discourse-structure  (discourse  theme-scheme  topic)) 
(realisation  (aapear  'translate  discourae-at ructure ) 

) 


issue  welcome  and  directions 
load  domain  dictionary 
load  domain  knowledge  baae 
begin  tracking  epu  if  requested 
discourse  schema 
discourse  topic 


(track  ‘tracing*  2  '(DISCOURSE  SCHEMA  ♦  POCUS  +  GIVER)  2) 

(trackf  *tracing*  2  Mpp-form  '.discourse-structure)  2) 

(track-blank  ‘tracing*  1  3) 

(track  ‘tracing*  1  '(MESSAGE  REALIZATION)) 

(trackf  ‘tracing*  1  '(pp-form  '.realization)  2) 

(track-blank  ‘tracing*  1  3) 

(track  ‘tracing*  1  '(SURFACE  PORM)) 

(mag  (R  2) ) 

( mapear  'aurface-form  realization) 

(trackf  ‘tracing*  1  '(track-cpu  'finish))  ;  finish  tricking  epu  if  requested 

) 


PURCTXOR:  welcome  | 

PURPOSE:  to  print  out  welcome  and  directions  | 


(define  (welcome) 

(mag  (R  3)  ‘Welcome  to  the  OERRT  text  generation  aystam  for  axpert  ayatema.”) 
(mag  R  ‘QBRRT  waa  daalgnad  to  answer  questions  of  tha  form:") 
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(asg  (■  2) 

(asg  K 
(asg  H 

(Mftg  (■  2) 
<a»g  (N  2) 

(■•9  ■ 

) 


” —  Wh«t  la  an  17”) 

Why  did  you  diagnoao  T7  ec  Why  dooa  Y  havo  a  pcobloa?”) 

” —  What  la  tho  dlffaroneo  hotwaoD  1  and  17”) 

*whora  X  and  Y  aro  ontitioa  within  tho  provldad  knowladgo  feaso.”) 
”Thaao  thrao  typaa  of  quaatlona  ara  indicatad  by  tba  kayworda:”) 
"Dxrxwi,  IXPLAXa,  and  COnPXKt,  raapactivaly.”) 


;  ruaCTZON:  load-kb  i 

;  PUhPOSB:  to  includa  a  donaln  knowladga  baaa.  I 


(dafina  (load-kb) 

(mag  (>  2)  ”What  la  tha  doaain  of  diacouraaY  *) 

(lat  ( (fila-wlth-kb  (road))) 

( eond 

((probaf  f ila-«flth-kb)  ;  flla  axlata? 

(load  f lla-wlth-kb) ) 

(t  (nag  N  "**”  No  flla  ”  flla-wlth-kb  ”  found.”  a)) 


;  PUaCTZOa:  load-dietionary  ) 

PUIPOSI:  To  load  in  a  now  dictionary,  araaing  tha  old  ona .  | 


* 


(dafina  (load-dictionary) 

^ ,  . 

(nag  (a  2)  "Plaaaa  antar  tha  domain  dictionary  flla  nama?  ") 

(lat  ( ( f ila-wlth-dletionary  (road))) 

( cond 

((probaf  flla-with-dictionary >  ;  flla  axista? 

(araaa-dictionary )  ;  dafinad  in  makadlctlonary 

(load  f lla-wlth-dictlonary ) ) 

(t  (mag  a  "•••  ao  flla  "  f lla-with-dlctionary  *  found."  N)) 

) 

) 


) 


7  PVaCTtoa:  ditcoursa-sehama  / 

7  PUIPOSI:  to  dataralna  thamat ie-schama  or  taxt  akatch  for  anawar.  j 


( dafina  ( dlacouraa-aehaaa) 

(mag  (a  2)  "Do  you  wish  DBPinE,  XXPtAia.  or  COMPARE?  " ) 
(gat-a-dlseouraa-goal ) 

) 

;  PUaCTloa:  gat-a-dlacouraa-goal  | 

7  PURPOSE:  to  guary  tha  uaar  for  a  fraaa  noma  in  tha  currant  KE.  j 


► 


a 


P 


(dafina  ( gat-a-dlacouraa-goal ) 

(lat  ((raaponsa  (raad))) 

( cond 

((fgat-frana  raaponsa)  raaponsa) 

(t  (mag  (E  2)  "QENNY  cannot  ”  raaponsa  " . " ) 

(nag  E  "Plaaaa  typa  anothar  raponsa  (DEFINE/BXPLAIN/COMPARE ) :  "i 

(gat-a-discoursa-goal) 

) 

) 

) 

) 

7  PUECTIOE:  dlscouraa-toplc  I 

7  PURPOSE:  to  datarnina  focua  (foci,  if  comparison)  of  attantion  of  text.  | 


t 


(dafina  (dl scour a a- topic  thaaa-schama ) 

( cond 

((ag  thama-aehama  'coapara) 

(msg  E  "What  do  you  wish  to  comparaP  ") 

(lat  ( (antlty  (gat-a-frama-nana) ) ) 

(nsg  E  "What  would  you  lika  to  coapara  it  to?  ”) 
(list  antlty  (gat-a-f rama-naaa) ) 

) 
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(■•9  (M  2)  "What  do  you  wish  to  kaoi«  about?  * ) 
(lift  {^at-^a-f  xa»a-Baao) ) 


;  PUNCTXOir:  got-a-f raao-aaao 

;  PUXPOSt:  to  quary  tho  uaor  for  a  fraao  aaao  in  tbo  currant  KB. 

( daf lao  (gat-a-f raaa-aaaa ) 

(lat  ((raaponaa  (raad))) 

( cond 

((f^at-fraaa  raaponaa)  raaponaa) 

(t  (aa9  (K  2)  "QBMRy  haa  no  knowlad^a  about  *  raaponaa  *.*) 
(aa9  N  "Plaaaa  typa  anothar  raponaa:  ") 

(9at-a-f raaa-naaa ) 


;  PURCTIOIT:  dlacouraa  | 

;  PURPOSE:  To  9anarata  a  apaclfic  taxt  atructura  givan  a  TS  (a  taxt  j 

atructura  or  a  thana-achaaia )  along  with  an  itan.  j 

(daflna  (dlacouraa  achana  Itan) 

(lat*  (  ( global-focua  itaat) 

(ta  ( thaaatlc-achaiia  achana  global'-focua )  ) 

(kvlata  ( aalact~knowladga-viata  global*>f ocua ) )  ;  viata  into  ralavant  knowladga 


(claar*>ralavant>propoaitiona  *pradlcata>‘typaa * ) 

(traek'blank  ♦tracing*  I  1) 

(track  *traclng*  1  ’(SELECT  KROWLEOQE  vista  «»>  , kvlata)  2) 
(track  *traclng*  1  MOBNERATE  RELEVAfIT  PROPOSITION  POOL)  2) 


( ganarata-ralava:tt->propoaitlona 
kvlata 

*pradlcataotypa0 ♦ 
aehaaa ) 


;  ganarata  ralavant  propoaltlona 


(track  *traclng*  1  '(OERERATE  DISCOURSE  PLAN:)) 

(trackf  *tracing*  1  ’(pp-fora  '.ta)  2) 

(track  *tracing*  1  MQLOBAL  FOCUS  (DISCOURSE  TOPIC)  -«>  , global>f ocua )  2) 


(ganarata-dlacouraa 

ta 

nil 

global-focua 

nil 

nil ) 


ganarata  dlacouraa  propoaltlona 
dlacouraa  plan 
no  paat  foci 

currant  focua  ■  global  focuB(i) 
no  knowladga  of  potantlal  futura  foci 
no  currant  contaxt 


Mdataacro  aakaliatlfnot  (I)  Mcond  ((listp  .1)  ,1)  (t  (list  ,1)))) 

;  fURCTIOH:  claar-ralavant^propositions  | 

;  PURPOSE:  to  claar  tha  inatantxatad  propositions  from  aach  predicate's  | 

;  proparty  liat.  I 

(daflna  (claar-ralavant>propositions  pradicates) 


( cend 

((null  pradicatae)) 

(t  (putprop  (haad  pradicataa)  nil  'propoaltlona) 
(claar-ralavant-propoaltiona  (tail  pradicataa ) ) 


;  claar  propoaltlona 
;  tail  racuraa 


FUNCTION:  propositions 

PURPOSE:  to  raturn  tha  instantiatad  propositions  in  ths  pool  of 

knowlsdga  for  a  givan  rhatorical  pradicata. 
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(dnflnn  (proposltlona  prndlcatn)  (9«t  prndlcat*  'propositions)) 


rUHCTXOtf:  9onoi«to-di9courso 

PURPOSI :  to  tako  a  plan  of  diacouraa  pradicataa  along  with  focus 

information  and  racursivaly  ganarata  a  list  of  rhatorical 
propositions.  Local  focus  constraints  ara  usad  to  constrain 
choiea  at  any  particular  junctura  in  tha  thanstic-schana  and 
global  focus  constraints  limit  tha  propositions  which  ara 
succassfully  Instantiatad  or  matchad  against  tha  vista  in  tha 
knowladga  bass. 


(dafina  (ganarata-discoursa  thamatic'-schama  pf  cf  ff  contaat) 

(cond 

((null  thanatic-Bchama )  nil)  ;  nothing  mors  to  talk  about 

(t 

(lat*  ( (naxt-illocutionary-action<tfocus  ;  choosa  naxt  thing  to  talk  about 
( salact-propos i t ion 

(propositions  (first  thamat ic'schana ) ) 
pf  cf  ff ) ) 

(naxt-lllocutionary-action  (haad  naxt>illocutionary-action4focuB ) ) 
(naxt-foci  (tail  aaxt-lllocutionsry-actlon4focus ) ) 

(OP  (first  naxt'foci))  ;  dafault  foci  of  naxt  pradicata 

(AP  (sacond  naxt-foci))  ;  altarnata  foci  of  naxt  pradicata 

) 


;  (track  *tracing*  2  '(NEXT  DISCOURSE  PROPOSITION:)) 

;  (traekf  ‘tracing*  2  * (pp-fora  ' , naxt-illocutionary-act ion )  2) 

;  (track  ‘tracing*  2  '(CURRENT  CONTEXT  (QITEN):)} 

;  (traekf  ‘tracing*  2  Mpp-forn  ',contaxt)  2) 


) 


( appand 

(eond  ((null  naxt-illocutionary-aetion)  nil) 

(t  (list  (list  naxt-illecutionsry-action 
(list  pf  OP  AP) 
contaxt ) ) ) ) 


(ganarata-discoursa 
(tail  thamatic-schama ) 
(cond 


if  naxt  proposition  than 
sava  proposition 
sava  focus  information 
raturn  contaxt 

choosa  last  to  say 


( (tail  cf  ) 

(appand  (list  OP) 

(list  (tail  cf)) 
pf )  ) 

((nambar  (car  DP)  ff) 

(appand  (list  DP) 

(list  (dalata  (car  DP)  ff)) 
pf )  ) 

(t  (appand  (list  OP)  pf))) 

(cond  ( (tail  cf )  cf ) 

( t  DP )  ) 

AP 


( dalata-dupl icatas  (appand  DP  AP  contaxt)) 

) 


(>  (langth  cf)  l);multipla  foci? 
last  uttarad 
not  yat  utt 
othar  past 

;  DP  in  ff?  (multipla  focus?) 

;  past  •  push  ff  on  pf 


past  *  push  DP  on  pf 


;  futura  foci 
;  sava  currant  contaxt 


) 


PUNCTION:  ganarata-ralavant-propositions  I 

PURPOSE:  to  ganarata  a  sat  of  ralavant  propositions  from  tha  pro’-ided  I 

knowladga  vista.  I 


(dafina  (ganarata-ralavant-propositions  kvista  pradicata-typas  spaarh-ac^^  ' 

( cond 

((null  pradicata-typas ) )  ;  stop 

(t 

(putprop  (haad  pradicata-typas)  ;  sava  ralavant 

(match-pradicata  (haad  pradicata-typas)  kvista  spaach-act);  propositions 
'propositions ) 

( ganarata-ralavant-propositions 

kvista  (tail  pradicata-typas)  spaach-act)  ;  tail  racursa 

) 

) 
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PUMCTXoa:  Batch-pr^dlcat*  I 

PURPOSI:  to  aotcb  a  prodicato  against  tha  vista  in  ths  knowlsdgs  bass.  | 


(dsflna  ( ■ateh-prsdieats  typs  kvista  spssch-act) 

( eond 

((null  kvista)  nil) 

(t 

(1st  ((nsxt-prsd  ( instantiats-prsdicats 
typs 

(hsad  kvista) 
spssch-act ) ) ) 

( appsnd 

(cond  ((null  nsxt-prsd)  nil) 

(t  (liat  nsxt-prsd))) 

(natch-prsdlcats  typs  (tail  kvista)  spssch-act}} 

) 

) 

) 

) 


no  nors  knowlsdgs 
try  to  asks  nsxt  prsd 


slss  construct 
first  itSB  in  kvista 
if  any 

root  itsBS  in  kvista 


PUlfCTtOII:  thsaatic-schsas 

pUPPOil:  to  rsturn  a  aksteh  structurs  of  ths  tsxt  providsd  with  ths  thsas 

MSTHOO:  usss  discourss  priaitivss  (such  as  attributivs,  constitusnt ,  ) 

which  provids  a  fraaswork  for  ths  glvsn  global  discourss  goal 
(sg  dsfins,  sxplain).  Hots  ths  global  discourss  goal  is  a  typs 
of  apssch  act  (rsf  Ssarls).  A  spssch  acts  planning  aodula 
could  ba  addsd  hsrs  a  la  Paul  Cohsn. 


(dsfins  (thsaatic-sehsas  thsas  topic) 

( t rack->-blank  ‘tracing*  1  3) 

(track  ‘tracing*  1  '(TEXT  SKETCH:)  2) 

( cond 

((sg  thsas  'dsfins) 

( appsnd 

(sub-schsaa  'introduction  topic) 

(sub-schsaa  'description  topic) 

(sub^sehsaa  'sxaapls  topic) 

) 

) 

Msg  thsas  'sxplain) 

<  appsnd 

( sub-sehsaa  'rsason  topic) 

(sub-achsaa  'svidsncs  topic) 

) 

) 

((sg  thsas  'coapars) 

( appsnd 

(sub-schsaa  'introduction  topic) 

(sub-schsaa  'introduction  topic) 

(sub-schsaa  'coaparison  topic) 

(sub'^schsaa  'conclusion  topic) 

) 

) 

(t  (asg  R  "Sorry,  but  OENNT  has  no  knowlsdgs  of  ths  "  thsas  "  thsas-^schsas "  If)) 

) 

) 


FURCTIOH:  sub-schsaa  I 

PURPOSE:  to  rsturn  ths  skstch  of  a  sub-discourss  glvsn  a  I 

psrlocutionary-act .  I 


(dsfins  (sub-schsaa  psrlocutionary-act  topic) 

(trackf  ‘tracing*  1  Mpp-fota  ' , psr locut iona ry-act  i 
( eond 

((sg  psrlocutionary-act  'introduction) 

'(dsfinition  attributivs)) 

((sg  psrlocutionary-act  'description) 

(appsnd  ' (constitusnt) 

(option 

(prsdieats*  'attributivs  topic) 

' ( dsfinition ) 

) 

) 

) 

( ( sg  psrlocutionary-act  'sxaapls)  '(illustration)) 
((sg  psrlocutionary-act  'reason)  ' (causs-sffset) ) 
((sg  psrlocutionary-act  'svidsncs) 

(option 


1 ) 
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€ 


<pr«dlc*t«*  'attributiva  topic) 

* ( daf ialtlon ) 

) 

) 

((•q  p«rlocutlonary-act  ' coaparison )  Mcoapara-contraat ) ) 
((•q  parloeutioaary-act  'eoncluaion)  ' ( ia9*r*aca ) ) 

) 

) 


rUHCTXOK:  option  I 

PURPOSB:  to  allow  a  cholca  batwaan  a  firat  or  aacond  itaa.  If  nona  ->nili 


(daflna  (option  Cleat  aacond) 
( cond 

((null  firat)  aacond) 

(t  firat) 

) 


;  if  firat  aapty ,  raturn  aacond 
;  alaa  raturn  tha  firat 


rUNCTIOll:  ptadicata*  ] 

PURPOSB:  to  allow  for  aultipla  rapatition  of  a  pradicata  ) 


(dafina  (pradicata*  pradicata  topic) 

(lat  ((ehilda  (lanqth  (chlldran  (firat  topic))))) 

(cond 

((sarop  chllda)  nil)  ;  no  childran?  ->  stop 

(t  (rapoat  pradicata  ehilda))  ;  alaa  rapaat  tha  pradicata 

)  :  for  aach  child 

) 

) 


;  PUticTION:  rapaat  | 
;  PURPOSB:  to  rapaat  a  qivan  aynbol  n'^tlnaa  by  Inqanloua  uaa  of  array  | 
;  function  for  duplication  (aaa  wilanalty,  LXSPcraft,  19S4  for  | 
;  daacriptione  of  array  functions).  j 


(dafina  (rapaat  synbol  n-tlnaa) 

(lat  ( ( tanp'-array  (nawsyn  'array))) 
(aval  '(array  ,tanp>array  t  n^-tinaa)) 
(fillarray  taap-array  (list  synbol)) 
(listarray  tanp-array  n-tiaas) 

) 

) 


nawsya  for  taaporay  local  varlabla 
dafina  local  array 
fill  array  with  syabol 
list  array  out  to  nth  alaaant 


RHETORICAL  PREDICATE  SEMANTICS 
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;  MODULI i 
PUIPOSI: 

NOTl! 

; 


OWNER: 


PRIDXCATl  SEMANTICS 

To  ••■oclato  th«  Indlvidunl  rhotorical  prodicatoi  with  th« 
frano  baaad  knowlad^a  rapraaantatlon . 

whlla  thaaa  aanaatica  ara  donaln-lndapandant ,  aaaily  portad 
to  any  domain  tapcanantad  In  a  frama  natwork,  thay  ara 
knowladga  rapraaantatlon  apaclflc.  Porting  tha  ganarator 
to  anothar  KR  achaaa  (logic,  for  axampla)  would  raguira  a  naw 
aanantlc  link  into  that  rapraaantatlon.  Hanca,  thie  nodula 
would  ba  raplacad. 

copywrita  Mark  T.  Maybury,  Juna,  1987. 


LZN0UI8T1C 

MOTIVATION:  It  aaana  that  diacouraa  can  ba  alagantly  daacribad  in 

tarna  of  rhatorlcal  acta  or  pradicataa  which  aarva  as 
taat-typa  indapandant  building  blocka  of  largar  diacouraa. 
Thia  Btana  from  work  by  aarly  gramnariana  (c.f.  Wllliama, 
1893),  mora  racantly  invaatigatad  by  Orimaa  (1975),  with 
ralatad  apaach-act  work  by  Saarla  (1969,  1975).  McKaown'a 
(1985)  work,  a  major  contribution  to  taat  atructura 
dafinltion,  motivataa  thaaa  pradicataa,  although  tha 
diacouraa  goala  in  aSNNf  Includa  axplanationa  in  addition 
to  dafinitiona  and  compariaona.  Mora  importantly,  tha 
pradicataa  praaantad  balow  —  dafinltion,  attributiva, 
conatituant,  avldanca,  illuatratlon ,  cauaa-af f act , 
compara-cont raat ,  and  Infaranca  —  ara  Intarfacad  to  a 
frama  knowladga  formallam,  aa  daflnad  by  tha  following 
pradicata  aamantica. 
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RHETORICAL  PREDICATE  ^  SEMANTICS  *■  KNOWLEDGE  BASE  PROPOSITION 


:  PUNCTZON:  inatantlata>pradicata  | 
;  PURPOSE:  to  raturn  a  propoaition  which  is  an  inatantiation  of  a  | 
;  rhatorlcal  pradicata  with  knowladga  from  tha  frama  KB.  | 


(daflna  ( inatantiata-pradicata  typa  frama  apaach^act) 

(eond 

((atom  frama)  if  aingla  foci 

( eond 

((and  (frana-typa  frama)  :  doaa  tha  frama 

(haad  (paranta  frama)))  :  axiat/not  root  noda? 

}  PREDICATE  DOCUMENTATION  GUIDE: 

PREDICATE-NAME 

aamantica 

inatantiatad  axampla 
,*  raallaationl 
;  raallaationl 


(cona  ;  OUTPUT  ■■ 

typa  pradicata-typa 

(eond  ;  *  pradicata 

;  DEFINITION  PREDICATE 
;  [dafinltion  typa/antity  typa  dda I 

;  (dafinltion  ((ragion  brain))  ((ragion))  ((location  (skull)))) 

;  Tha  brain  ragion  ia  a  ragion  locatad  in  tha  skull. 

;  Thara  ia  a  ragion  locatad  in  tha  skull  callad  tha  brain  ragion. 

((aq  typa  'dafinltion) 

(Hat 
( eond 

((or  (act?  frama)  (rasult?  frama)) 

* ( ( I ( f rama-typa  frama)  , frama))) 

(t  '  ( (  .frama) ) ) ) 

'  ( (  ,  (f rama-typa  frama) ) ) 

(dda2  frama) 

) 

) 


;  ATTRIBUTIVE  PREDICATE 

;  [attributiva  typa/antity  (attr  valua)*J 

;  [attributiva  ((ragion  brain))  ((value  importanca  indaf  I))] 
;  Tha  brain  region  has  an  importance  value  of  1. 

;  An  importance  of  1  ia  attributed  to  the  brain  region. 


((eq  type  ’attributive) 


a 


pr«dieat«s.l 


Sun  Auf  30  15:06:30  19S7 


(list 

'  ( (  »  (  f  r«as-typ«  frsas)  ,frsa«M 
(sttrlbutss  frsas  spsach-sct) 

) 

) 


)  1 


;  COHSTITUIHT  PRBOICATB 

;  (eonstltusnt  sntlty  sub-clsss-typ*  sub-cl«S8->no  subclsssss] 

;  (eonstltusnt  ((brsin))  ((hsaisphsrs  two  nons)}  nil  ((1-hsa  rsgion)  (r-hsa  ration) 

;  Ths  brsin  has  two  hsaisphsrss:  a  l~haip  rspion  and  a  r-bsa  rsgion. 

;  Thors  ars  two  hsa  in  ths  brain:  a  l->hsB  rsgion  and  a  r-hsa  rsgion. 


((sq  typs  ' coastitusnt ) 

(list 

* ( ( ,fraas)  ) 

(cond 

( (childrsn  f raas) 

(list  (list 

(fraas-typs  (first  (childrsn  fraas)>) 

( lntsgsr-> Isx  (Isngth  (childrsn  fraas))) 
(t  nil ) ) 
nil 

(aapear  'typs4>fraas  (childrsn  fraas)) 

» 


;  if  thsrs  ars  childrsn 


' nons ) ) ) 

;  no  inatruasnt,  function, 
;  or  location 

; ' condition 


BVIOCNCE  PREDICATE 

(svidsnes  (typs  sntity)  '((daaags))  '((location  (supsr-typs  supsr-class  )  )  )  ] 
(svidsnes  ((tsst  language))  ((daaags))  ((location  (lobs  Ifrontal)))  ] 

Ths  language  (tsst)  indicates  ths  daaags  in 

ths  Ifrontal  lobs.  (Language  Indicates  daaags  in  Ifrontal?) 

Ths  Ifrontal  lobs  daaags  is  indicated  by  ths  language  tsst. 


((sq  typs  'svidsnes) 

(list 
( cond 

((or  (act?  fraas)  (result?  fraas)) 

M( f ( fraas-typs  fraas)  , fraas))) 

(t  ' < { , fraas) ) ) ) 

' ( (daaags) ) 

( cond 

((or  (act?  (first  (parents  frame))) 

(result?  (first  (parents  fraas)))) 

(list  (list 
'  instruasnt 

(list  (fraas-typs  (first  (parents  frame))) 
(first  (parents  frame))))) 


(t 

(list  (list 
' location 

(list  (fraas-typs  (first  (parents  fraas))) 

(first  (parents  frame))))) 

) 

) 

) 

) 

;  ILLUSTRATION  PREDICATE 
;  (illustration  typs/sntity  typs  dda ) 

;  (illustration  ((region  Isft-hsaiphsrs) )  ((function  ( fsaturs-rscognizsr ) M  brain  1 
Ths  1-hsa  region,  for  sxaapls,  functions  as  a  f saturs-csconlEsr  for  ths  brain. 

;  Ths  i-hsa  region,  for  sx,  has  ths  fsaturs-rscogniEsr  function  in  ths  brain 

((sq  typs  'illustration) 

(list 

M ( r ( f taas-typs  fraas)  , frame)) 

M (>( fraas-typs  frame))) 

(dda2  fraas) 

) 


;  CAUSE-EFFECT  PREDICATE 

(cause-effect  sntity  '((damage))  sub-class  '((damage))] 

;  ( causs-sf f set  ((brain  rsg))  '((damage))  nil  ((l-hsa  rsg)  (r-hsa  rsg))  '((damage)) 

I 

;  Ths  brain  region  has  (no)  damage  because  ths  l-hsa  region  and  ths  r-hsa  region  ha 

vs  (no)  daaags. 

;  Ths  aanssic  disorder  is  aanifsst  because  ths  apathetic  observation  indicates  daaa 

• 


((sq  typs  'cause-effect) 

(list 

*((»( fraas-typs  frame)  , fraas)) 
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( cond 

(<r«8ult7  fraa*)  ' ( ) M 
(<«ct?  fran*)  '((nad*)}^ 

(t  '((daaagad  nil  non#)))) 
nil  ; 

(■apcar  'typa<ffraaa  (chlldran  fra»an 
( ( daaaga ) ) 


ia  frana  a  raault  (l.a.  Bynptoa/disordar ) 
iB  frana  an  act  (l.a.  obsarvation) 
alaa  it  is  an  objact 
no  instrunant,  function,  location 


) 


) 


) 

((listp  frana)  ;  naka  sura  its  a  list 

( cond 

((and  ;  if  multipla  foci  frama 

(and  (frana-typa  (first  fraaia))  ihaad  (pacants  (first  fraaa))))  £1 

(and  (frana-typa  (sacond  fraaia))  (haad  (parants  (sacond  fraaa))))  f2 


( conB 
typa 
( cond 


OUTPUT  — 

pradicata-typa 
•f  pradicata 


COMPXStE'CONTRAST  PREDICATE 

( coapa ra-cont ras t  (antityl  antity2)  (coaparison  val)*] 

( coapa ra-cont ras t  ((1-haa)  (r-haa))  ((dda  siailar)  (typa  diffarant))] 

Tha  1-haa  and  tha  r-haa  hava  a  siailar  typa  and  a  diffarant  dda. 

Thara  is  a  siailar  typa  and  a  diffarant  dda  for  tha  1-haa  and  tha  r-haa. 


((ag  typa  ' coapa ra-cont ras t ) 

(list 

(list 

(list  (first  fraaa)) 

(list  (sacond  fraaa))) 

(coap-cont  (first  fraaa)  (sacond  fraaa})) 


;  INFERENCE  PREDICATE 

(infaranca  fraaal  fraaa2  conclusion) 

:  (infaranca  ((brain)  (languaga))  ((antity  diffarant  nona))l 

Tha  brain  and  languaga,  tharafora,  ara  diffarant  antitias. 
;  Hanca,  tha  brain  is  diffarant  fron  languaga. 

((aq  typa  'infaranca! 

(list 

(list 

(list  (frana-typa  (first  frana))  (first  frama)) 

(list  (fraaa-typa  (sacond  frama))  (sacond  frama)}} 

' ( ( antity 

, (infaranca  (first  frama)  (sacond  frama)}  nona ) ) ) 


} 

) 

) 

(t  nil)  ;  if  frama  doasn't  axist  ->  nil 

) 

)  ;  listp 

) 

) 


FUNCTION:  mark-as-usad 

PURPOSE:  to  mark  ona  or  a  numbar  of  framas  as  usad  for  a  particular 

rhatorical  purposa.  This  davica  acts  as  a  discourse  context 
which  records  past  utterances.  This  can  aid  in  resolving 
focus  selection  whan  such  a  choice  is  ambiguous. 

THEORETICAL 

MOTIVATION  People  don't  normally  repeat  themselves  in  discourse  unless 
they  wish  to  achieve  a  peculiar  effect  (eg  emphasis, 
conversational  implicature.  etc).  Thus,  record  past  usages 
of  a  particular  knowledge  chunk  so  that  is  not  repeated 
later  in  tha  discourse. 

MECHANISM:  Tha  frame  slot  called  " di scour sa-contaxt "  is  marked  with  the 
symbol  representing  the  rhatorical  pradicata  typa 
(eg  illustrative  or  constituent).  Whan  tha  pool  of  knowledge 
is  being  constructed,  this  field  is  tasted  and  no  proposition 
is  ganaratad  for  a  particular  rhetorical  pradicata  if  that 
utterance  has  already  occurad  in  tha  diacoursa. 


(define  ( mark-aa-uaad  frames  pradicata) 
( cond 

( ( null  f  ramaa  )  ) 
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(<atoa  fr«n«s)  (plcc«*>ln-cont«xt  pr«dicat*>)  ;  if  on«,  in  context 

(t  (plac«-in->cont«xt  (hnad  frnn«s)  prndicat*}  :  •X**  fictt  in  context 

(■«tk>««*-ua«d  (tail  frnnns)  prndlcata))  ;  And  r«xt 

) 

) 


/unCTIOJi:  typ*4>fraai*  I 

PURPOSE:  to  roturn  a  liat  of  tho  frana  naaa  togathar  with  its  typa .  | 


(dafina  (typa<ffrana  frana} 

(list  (ftana*-typa  trana)  frana)) 


PURCTION:  raault?  I 

PURPOSE:  to  datarnina  if  a  glvan  frana  is  a  rasultant  of  aonathing.  j 


(dafina  (raault?  frana) 

(eond  ((nanbar  (frana-typa  fraaia)  '(aynpton  dlaordar  fault  attributoMM 

) 


PUNCTXOH:  act?  I 

PURPOSE:  to  datarnina  ia  tha  providad  frana  is  an  act.  ] 


(dafina  (act?  frana) 

(cond  ((nanbar  (frana-typa  frana)  Mobsarvation) ) } ) 


PURCTION:  attrlbutas  I 

PURPOSE:  to  raturn  tha  attributaa  of  tha  givan  frana  by  axanining  KB.  | 


(dafina  (attributaa  frana  spaach-act) 

(lat  ((inport  (inportanca  frana)) 

(danaga  ( danaga-of-a raa  frana)) 

(typa  (frana-typa  frana))) 

( cond 

((ag  apaach-act  'dafina) 

(eond  ((null  inport)  nil) 

(t  (liat  (liat  'valua  'inportanca  'Indaf  inport  ' ralativa )  )  )  )  ) 

( (aq  typa  'taat) 

(cond  ((null  danaga)  nil) 

(t  (list  (liat  ’raault  nil  'indaf  danaga))))) 

((or  (ag  typa  'aynpton)  (ag  typa  'obaarvation ) ) 

(cond  ((null  danaga)  nil) 

(t  (list  (list  'valua  'llkallhood  'indaf  danaga))))) 

((ag  apaach-act  'axplain) 

(cond  ((null  danaga)  nil) 

(t  (liat  (Hat  'valua  'danaga  'indaf  danaga))))) 

( ( ag  apaach-act  'conpara) 

(cond  ((and  (null  inport)  (null  danaga))  nil) 

((null  Inport)  (liat  (Hat  'valua  'danaga  'indaf  danaga))) 

((null  danaga)  (list  (Hat  'valua  'inportanca  ’indaf  inport  'ralativa))) 
(t  (Hat  (Hat  'valua  'inportanca  'indaf  inport  'ralativa) 

(list  'valua  'danaga  'indaf  danaga))) 

) 

) 

) 

) 

) 

;  nay  actually  want  this  forn  which  raturns, 

;  for  ax,  ((inportanca  1)  (danaga  nil))  varsus  ((inportanca  1)) 

;  so  can  say  "Tha  brain  has  inportanca  of  1  and  danaga  of  unknown.' 

;  "Tha  brain  has  a  0.6  inportanca  and  an  unknown  danaga.  " 

;  (list 

(liat  'inportanca  inport) 

(liat  'danaga  danaga) 

;  (list  'sub-class  childs) 

;  ) 


PURCTION:  infaranca  | 

PURPOSE:  to  naka  infaranca  on  two  providad  franaa.  | 


(dafina  (infaranca  fl  f2) 
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( eond 

( (^q  fl  f2)  'nquAl) 

((•q  (fraan-typ*  fl)  <frft»«'-typ*  f2))  'siailnr) 
M«q  (parents  fl)  (parents  f2))  's^nllsr) 

((eq  (dda  fl)  (dda  f2))  ^similar) 

(t  'different) 

) 


;  PUHCTZON:  coap-cent 

;  PURPOSE:  to  eoapare  or  contrast  to  given  fraaes. 

;  MBTROD:  Check  equality  of  various  slot  values. 

Check  hierarchical  distance. 

Cheek  siailarlty  of  parents,  children,  siblings. 


(define  (conp->cont  fl  f2) 

(list 

(list  'naae  (cond  ((eq  fl  f2)  'equal)  (t  'different))) 

(list  'class  (cond  ((eq  (parents  fl)  (parents  f2))  'siailar)  (t  'different))) 

;  (list  'sub-class  (cond  ((eq  (children  fl)  (children  f2))  'siailar)  (t  'different))) 
(list  'type  (cond  ((eq  (fraae-type  fl)  (fraae-type  f2))  'siailar)  (t  'different))) 

(list  'dda  (cond  ((eq  (dda  fl)  (dda  f2))  'siailar)  (t  'different))) 

(list  'iaportanee  (cond  ((eg  (iaportance  fl)  (iaportance  f2))  'siailar)  (t  'different)) 

) 

) 


SECTION  T 


Inuiaiise 

ts  (theme  scheme)  =  theme-scheme 
cf  (current  focus)  =  discourse  goal 
pf  (past  focus)  =  nil 
ff  (future  focus)  =  nil 


_ I _ 

LET  fpl  (focus  preference  list)  =  ff  +  cf  +  pf 
if  multiple  cf  then  fpl  =  cf  +  ff  +  pf 


finished? 

Jext  illocutionary  act  in^s> - STOP 


locutionary  act  =  first  successful 
proposition  not  yet  uttered 
(instantiated  using  fpl) 


, 
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QLOBAb  POCUS  THEORY  | 

Motivated  by  Barbara  droaa's  theory  of  global  focus,  declare  a  knowledge  | 
vista  vhich  enconpasea  the  given  trane,  Ita  parent,  and  children.  A  | 
■ore  aophlaticated  nechanian  (beyond  the  scope  of  this  dlasertation )  | 
could  incorporate  user  ■odelling  to  eelect  relevant  knowledge  with  | 
regard  to  the  level  of  sophistication  of  the  audience.  Purthenore,  a  j 
diacoutse  model  could  aupreaa  or  encourage  certain  pelces  of  infornation  | 


with  regard  to  previously  generated  test.  j 

The  use  of  the  diction  "knowledge  vista*  illustrates  the  connection  with  j 
the  PEL  approach  to  knowledge  representation.  In  this  paradigm,  | 
knowledge  is  most  perpieuous  when  viewed  froa  soae  relevant  vista.  | 
Here,  knowledge  in  global  focus  is  the  relevant  viata.  j 


PUNCTIOH:  aelect>‘knowledge*'Vista  | 

PURPOSE:  to  select  a  vista  within  the  knowledge  base  which  reflects  the  | 

knowledge  relevant  to  the  global>f ocus ( 1 ) .  | 

METHOD:  utilise  the  frane  hierarchy  to  place  the  superordinate  and  | 

subordinate  classes  of  the  frames  into  the  knowledge  vista.  | 

Also,  siblings  of  frames  are  placed  in  implicit  vista  or  focus.  | 
LXHdUISTXC  t 

THEORY:  Humana  place  not  only  individual  entitles  but  also  multiple  | 

entities  in  focus  simultaneously.  This  is  the  case,  for  | 

example,  when  converaants  discuss  two  items  in  parallel,  as  in  | 
comparison.  | 


(define  (select-knowledge-vista  frames) 


(let 

( ( f rames-vista  ; 

( append 

frames 

(apply  'append  (mapear  'children  frames}),* 
(apply  'append  (mapear  'parents  frames))  ; 

) 

) 

) 

(mapear  'place-in-vista  f rames-vista )  t 

(mapear  'imp licit- vista 
(apply  'append  (mapear  'siblings  frames)))  ; 

( cond 

(distp  frames)  (cons  frames  f  rames-vista  )) ; 
(t  f rames-vista ) 

) 

) 

) 


frames  vista  consists  of 

frames  in  focus 
their  children 
their  parents 


mark  knowledge  vista 

mark  Implicit  knowledge  vista 
(could  mark  two  levels  away) 

multiple  globel  foci?  add  to  k'-ista 
return  kvista 


PUHCTIOH:  in-vista?  | 

PURPOSE:  to  determine  if  a  given  frame  is  in  global  focus  (in  K  vista).  | 


(define  (In-vista?  frame) 

(cond  ((eg  (relevance  frame)  'in-vista)))) 


PUHCTIOH:  implicit-vista?  | 

PURPOSE:  to  determine  if  a  given  frame  is  implicitly  in  focus.  | 


(define  (implicit-vista?  frame) 


(cend  (r«l«vAne«  fram*)  * l»piiclt-vl«t« ) ) ) ) 


LOCAL  rocus  THBOKV 


pr  past  foci  list 

cr  ■«  current  focus 

PP  ••  potontisl  future  foci  list 

Attentioael  shift  slgorithn  (notivsted  by  Csndscs  sidner's  work). 

if  choice  between  PP  or  CP,  prefer  CP  (to  continue  present  topic) 
if  choice  betwssn  CP  or  PP,  prefer  PP  (to  introduce  new  topics) 

ZHSIOHT 

if  possible,  stick  to  topic  unless  future  role  is  illustrstion,  then  PF 
otherwise,  sllow  digression  from  topic  for  one  level, 
then  return  to  topic. 


FUNCTION:  select-proposition 

PURPOSE:  to  select  s  proposition  besed  on  locel  focus  constraints. 

METHOD:  Sidner's  sl^orithn  nodified  for  generation  purposes. 

Purthernore,  the  proposition  that  is  uaed  is  narked  in  the 
as  a  discourse  context  so  it  won't  be  repeated. 


(define  (select-proposition  choices  PP  CP  FP) 

(let*  ((focus-preference  (local-focus-preference  PF  CF  FF)) 

( selections focus  (pick-proposition  choices  choices  focus-preference))) 

(track  *traclng*  1  '(LOCAL  FOCUS  PREFERENCE  «•>  , f ocus-pref erence )  ) 

(track  *tracing*  1  '(PREDICATE  SELECTED  )) 

(trackf  *tracing*  1  '(pp-forn  ',(head  seleetionsf ecus )  )  2) 

(nark-as-used 

(first  (head  (tall  selectionsf ocus ) ) )  ;  nark  topic  used  and 

(firat  (head  selectionsfocus ) ) )  ;  for  what  discourse  purpose 

selectionsf ecus  ;  return  selected  rp  s  focus 

) 

) 


FUNCTION:  pick-proposition 

PURPOSE:  To  choose  a  rhetorical  proposition  from  anong  several  choices 

which  will  have  the  sane  focus  as  the  desired  focus  and  is  new 
infornation  (ie  has  not  been  uttered  already). 

METHOD:  Try  to  natch  all  the  rhetorical  propositions  with  the  first 

iten  in  the  focus  preference  list.  Take  the  first  rp  that 
succeeds.  If  none  work,  then  recurse  down  the  focus-preference 
list  until  success,  otherwise  fail. 

An  rp  succeeds  if  the  next  focus  prefered  is  both  within  the 
reala  of  that  predicate  as  well  as  if  that  predicate  has  not 
been  used  before  for  that  topic  (ie  only  choose  to  say 
sonething  if  you  haven't  already  said  it.) 

LINGUISTIC  PRINCIPLE: 

Select  what  to  say  next  based  (in  order  of  importance)  on: 

--  what  you  want  to  say 

—  what  you  know 

—  what  you  have  already  said 


(define  (pick-proposition  all-rps  rps  focus-preference) 


(cond 
( (null 
( (null 
(pick 
all 
all 

(ti 

) 

( (and 
(not 

(Real 

) 


focus-preference)  nil) 
rps ) 

-proposition 

-rps 

-rps 

il  focus-preference)) 


no  more  focus  possibilities 
no  more  rhetorical  preds 
try  next  potential  focus 
on  all  the  predicates 


(uttered  (head  rps)  (head  focus-preference)))  ;  pred  not  uttered  on  topic 
iber  (head  focus-preference)  ;  next  potential  focus 

(default-foci  (head  rps)))  :  member  of  next  pred  default  foci? 


3 


foews.l 


Sun  AU9  30  15:02:14  1987 


) 


(list  (h««d  rpa ) 

(Hat  <haad  f  ocua-praf  araaca  ) ) 

( altarnata-f ocl  (haad  rpa))) 

) 

(  ( and 

(not  (uttarad  (h<ad  rpa)  (haad  focua 
(nanbar  (haad  f ocua-praCaraaea ) 

(altarnata-foci  (haad  rpa))) 

) 

(Hat  (haad  rpa) 

(Hat  (haad  f ocua-praf aranca ) ) 
(dafault-foci  (haad  rpa))) 

) 

(t  (pick-propoaition 
all-rpa 
(tall  rpa) 
focua^prafaranca) 


raturn  rp  * 
(aalactad  focua 

♦  rr) 


-prafaranca) ) )  ;  ptad  not  uttarad  on 
;  nast  potantial  focua 
;  nanbar  of  naxt  prad  alt  foci? 

;  raturn  rp  t 
;  (aalactad  focua  *  PP ) 


otharwlaa  chack  raat 
of  prada  for  balng  in 
focua  praf  Hat 


PUMCTION:  uttarad  | 

PURPOSE:  to  datarnina  if  tha  rp  haa  alraaldy  baan  uttarad  on  tha  givan  | 

topic  yat  by  tasting  contaxt.  j 


(daflna  (uttarad  rp  topic) 

(cond  ((nanbar  (first  rp)  (contaxt  topic))))  ;  prad  typa  not  uttarad  yat 
)  ;  for  this  topic 


PUNCTIOM:  any-nanbar  | 

PURPOSE:  to  datarnina  if  any  of  tha  itans  in  a  Hat  ara  nanbara  of  tha  j 

nanbarship  Hat.  | 


(dafina  (any->nanbar  itana  nanbarship) 

( eond 

((null  nanbarship)  nil) 

((nanbar  (first  itans)  nanbarship)) 

(t  (any-nanbar  (tail  Itans)  nanbarship)) 

) 

) 


PURCTIOR :  1 oca l-focus-praf aranca 

PURPOSE:  to  datarnina  a  focus  prafaranea  list  basad  on  tha  past  foci, 

tha  currant  focus,  and  tha  possibla  futura  foci. 

LINGUISTIC 

nOTIVATION:  Apparantly  paopla  focus  on  antitlas  just  introducad,  or,  as 

in  tha  casa  of  nultipla  foci,  on  tha  ralatad  antitlas  in  turn. 


(dafina  ( local-f ocus-prafaranca  PP  CP  pp) 


(dalata-dupHcatas 
( cond 

( (tail  CP) 

( appand 
CP 
PP 

(apply  'appand  PP) 

) 

) 

(t 

( appand 
PP 
CP 

(apply  'appand  PP) 

) 

) 

) 

) 

) 


throw  away  dupHcatas  (just  axtra  work) 
if 

nultipla  itans  in  CP  (i.a.  nultipla  fo 
join  lists  in  prafaranea 

tha  PP  of  currant  uttaranca 
past  foci  joinad  togathar 


join  lists 
tha  77  of 
CF  list 
past  foci 


in  prafaranea  ordar: 
currant  uttaranca 

joinad  togathar 


FUNCTION:  daf ault-f oci  and  altarnata-foci  | 

PURPOSE:  to  raturn  tha  dafault-foci  (usually  translatas  to  agant )  or  tha  | 

altarnata-f oci  (usually  translatas  to  patiant)  of  tha  pradicata.| 


(dafina  (dafault-foci  rp)  (first  (foci  rp))) 
(dafina  (altarnata-focl  rp)  (aacond  (foci  rp))) 


topic 


ci  ) 
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I 


PUNCTIOR:  foci 

FUKFOSB:  to  roturn  tho  potontloi  foci  of  a  givon  rbotorlcal  prodicato. 

Tha  apacltlc  location  of  focua  la  rhatorical  dapandant. 
OUTPUT:  (  <  eurrant-<‘f oci  >  <  potantlal-f oei  >  ) 

LZNaUISTIC 

PttZHCIPLB :  A  parlocutionary  act  Tanarally  haa  a  default  foci  as  wall  aa 
altarnativa  foci.  This  will  ba  baaad  on  tha  type  of  act. 


(daflna  (foci  rp) 

(lot  Mtypa  (first  rp))) 

(eond 

((■anbar  type  '( attributive ) ) 
(list 

(■apear  'cadr  (second  rp))) 

) 

( (nanbar  type 
( cond 

((tall  (first  (aacond  rp))) 
(list 

'cadr  ( sacond  rp)) 
'car  ( third  rp ) ) ) ) 


'(definition  evidence)) 


(napear 
( napear 
(t 

(list 

(napear 

(napear 


) 

) 

( (nanbar  type 
(list 


'car  ( second  rp ) ) 
'car  ( third  rp ) ) ) ) 


’  ( inference) ) 


foci  fron  agent 


is  this  an  act  or  result? 


foci  fron  agent  CP 

foci  fron  patient  FP 


foci  fron  agent  CP 

foci  fron  patient  PP 


(napear  'cadr  (sacond  rp)) 

;  foci 

fron 

agent 

cr 

(napear  'car  (third  rp))) 

t 

;  foci 

fron 

patient 

PP 

1 

((nanbar  type  '(constituent)) 

(list 

(napear  'car  (second  rp)) 

;  foci 

fron 

agent 

CP 

( append 

(napear  'car  (third  rp)) 

;  foci 

f  ron 

patient 

PP 

(napear  'cadr  (fifth  rp)))) 

t 

;  foci 

fron 

beneficiary 

PP 

1 

( (nanbar  type  ' (conpara^contrast)  ) 

(list 

(napear  'car  (sacond  rp)) 

:  foci 

fron 

agent 

CP 

(napear  'car  (third  rp))) 

1 

;  foci 

fron 

patient 

PP 

((nanbar  type  '(illustration)) 

(list 

(napear  'cadr  (sacond  rp>) 

;  foci 

fron 

agent 

CP 

(napear  'car  (third  rp))) 

) 

;  foci 

fron 

patient 

PP 

((nanbar  type  ' ( causa-af f act ) ) 

(list 

(napear  'cadr  (sacond  rp)) 

;  foci 

fron 

agent  1 

CP 

( append 

(napear  'cadr  (fifth  rp)) 

;  foci 

fron 

agent2 

PP 

(napear  'car  (third  rp)) 

;  foci 

fron 

patiantl 

PP 

(napear  'car  (sixth  rp)))) 

;  foci 

fron 

patient? 

PP 

(define  (aaf  lyst) 

( cond 

((null  (sacond  lyst))  (first  lyst)) 
( t  ( sacond  lyst ) } 

) 

) 


if  no  second  element,  then 
else  return  the  second  element 


^  -  •  -  - ^ — -  — -  •- - 
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;//////////////////////////////////////////////////////////////////////////// 

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

I 

MODULI :  AMAPHORA  | 

;  PURPOSI:  To  porfora  pronoainolicotion  whon  roquirod  by  focu«  nochanlsa  j 

for  diseourso  fluidity.  j 

OWMIR:  eopywrito  Mark  T.  Haybury,  Juno,  19S7.  | 

;  I 

;S\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

\ //////////////////////////////////////////////////////////////////////////// 


PUNCTZON:  U80-«naphoro7 

PURPOSE:  to  docldo  boaod  on  tho  post  focus  of  sttontion  and  tho  curront 
focus  of  attention  whothor  or  not  to  use  anaphora. 

LIRQUISTIC 

PRINIPLE:  If  you  hsvo  just  spoken  about  sonething  (focus  on  it)  and  you 
are  still  speaking  about  it  in  the  next  utterance,  you  are 
allowed  to  use  refering  devices  like  anaphora. 


(define  (use-enaphore?  agent  focus) 

( cond 

((entity?  (second  agent}) 

( cond 

( ( foref ronted?  (second  agent)  focus)  t) 
(( foref routed?  (first  agent)  focus)  t) 
(t  nil) 

) 

) 

( (forefronted?  (first  agent)  focus)  t) 

(t  nil) 

) 


head  noun  entity? 
then  try  to  pronon 
forefronted?  ->  pronoe 
forefronted?  »>  pronoe 
else  focus  has  shifted, 
don 't  pronoe Inalise 
else  test  noun  eodifier 
forefronted?  ->  pronoe 
else  focus  has  shifted, 
don't  pronoeinalise 


PURCTION:  forefronted? 

PURPOSE:  to  decide  if  the  provided  entity  is  at  the  forefront  of  the 

reader's  eind  at  this  point  in  the  discourse. 

LIRQUISTIC 

PRINCIPLE:  Recency  of  uttering  an  entity,  as  well  as  saliency,  places  an 
itee  at  the  forefront  of  readers  Bind. 

Future:  Anistacy  could  affect  attention  reader  has  given  to 

previous  entitles  (c.f.  rlllsiore,  1977). 


(define  (forefronted?  dte  focus) 

(let  ((pr  (first  focus))) 

( cond 

((and  (Beaber  dte  (head  PP)) 

( entity?  dte  )  ) 
t) 

(t  nil ) 

) 

) 

) 


dte  focused  in  previous  utterance? 
dte  an  entity? 

>•>  itea  is  forefronted 
else  not 


FUNCTION:  entity? 

PURPOSE:  to  return  t  if  the  itea  is  a  KB  entity,  nil  otherwise. 


(define  (entity?  itea)  (cond  ((fraae-type  itea)))) 


;  FUNCTION:  anaphorise  { 

;  PURPOSE:  to  pronoainalise  a  noun  phrase  in  the  subject  or  direct  object. | 


(define  (anaphorise  syntax-tree  location)  ;  need  focused  item  also?? 
( cond 

((eq  location  'subject) 

( pconoalnalise-sub ject  syntax-tree) ) 

((eq  location  'object) 

(pronoainalise-ob ject  syntax-tree)) 

) 

) 

(define  (pronoainalise-sub ject  tree ) 

( cond 

( (null  tree )  nil ) 


A 


ftWrv*. 
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((•4  (first  (b«sd  tr««))  'ap) 

( coas 

(pronoa  (tall  (hand  tr««)n 
(tail  traa) ) 

) 

(t  (coat  (haad  traa) 

(proaoainallsa-sub jact  traa)) 

) 

) 

) 


;  PUNCTION:  proaoa 

;  PURPOSE:  raturna  propar  proaoun  givan  word  faaturas 
:  (dictionary  'pronoun) 

;  ->  (ha  (pronoun  para  alag3p  aubj  p3}) 

(dictionary  'dataralnar) 

:  ->  (this  (dataralaar  count  alnq3p  Indafart  notof  nonag  nonun)) 


(dafina  (pronon  faaturaa)  ;  faaturaa 

( cond 

( ( aq  (first  faaturaa)  'propar-noun) 

(lot  ((pronouns  (dictionary  'pronoun))) 

( aalact-pronoun 

(liat  'pronoun  'pars  (aacond  faaturaa) 
'aubj  'p3  (third  faaturaa)) 
(napcar  'loo)(-up  pronouns)) 

) 

) 

(t 

(lot  ((pronouns  (dictionary  'pronoun))) 

( aalact'pronoun 

(list  'pronoun  'pars  (third  faaturoa) 
'aubj  'p3  (fourth  faaturas)) 
(napcar  'loo)(<-up  pronouns)) 

) 

) 

) 

) 


mm  (propar'-noun  slng3p  nala) 


;  is  it  a  parsonal  noun? 

;  gat  all  pronouns 
natch 

:  syntax  of  propar  noun 

;  antrias  of  pronouns 


•  natch 

;  syntax  of  noun 
;  antrias  of  pronouns 


;  FUNCTION:  aalact-pronoun  I 

;  PURPOSE:  to  find  a  lax  antry  which  natcbas  tha  providad  syntax  faaturas.  I 


) 

I 


► 

t 

► 


(dafina  (aalact-pronoun  syntax  antrias) 

( cond 

((null  antrias)  nil) 

( ( natch'>syntax  syntax  (tail  (haad  antrias)))  ;  if  syntax  natchas  naxt  antry 
(haad  antrias)  ;  taka  it  (first  natch) 

) 

(t  (aalact-pronoun  syntax  (tail  antrias)))  ;  alaa  racursa  on  tail 

) 

) 

(dafina  (natch-syntax  syntax  a-llst) 

( cond 

( (null  a-list )  nil ) 

((ny-unify  syntax  (syntax  (haad  a-list)))  t) 

(t  (natch-syntax  syntax  (tail  a-list))) 

) 


r 


) 


as 
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//////////////////////////////////////////////////////////////////////////// 
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MODULE:  TKAHSLATB  | 

PURPOSE:  To  translato  •  rhotorlcnl  prodicoto  Into  a  cob*  structuro  which  | 

!•  tranafornod  Into  a  syntax  traa  by  unlfyin9  with  OPSO  I 

+  faaturaa  I 

OWHBR:  copywclta  Hack  T.  Haybucy,  Juna ,  1987.  I 

REPRESBIfTATlON:  I 

Pradicata  ->  Pocua  ->  Caaa  ->  Ralations  ->  GPSG  >>  Orthographic  { 

PUMCTIORAL  AKALYSIS:  | 

Oiacouraa  ->  Pragnatlc  Sanantic  ->  Ralatlonal  ->  Syntactic  ->  Surcaca  j 

LINGUISTIC  I 

PRINCIPLES:  Tha  following  coda  inplananta  tha  translation  of  tha  | 

■assaga  fornalisn  —  rhatorlcal  pradicatas  onto  surfaca  ) 
forn.  This  napping  is  notivatad  by  racant  insights  in  | 

discoursa  analysis  <c.f.  Parlnuttar,  1980  and  Pillnora,  | 

1977)  which  auggast  tha  naad  for  a  distinct  laval  of  j 

grannatical  raprasantation  in  tarns  of  ralational  | 

constituanta  (a.g.  aubjact,  ob jact ,  pradicata).  This  theory  | 
is  supportad  by  tha  auccass  of  intarpratars  axploiting  | 

ralational  knowladga  (a.g.  GUS  (Bobrow,  1977))  and  tha  | 

insuf ficiancy  of  sona  tactical  ganarators  (a.g.  Hckaown,  j 

1965)  which  do  not  taka  sufficiant  account  of  ralational  | 
Idaas.  Nith  this  in  nind,  GENNY  first  sanantically  | 

intarprats  a  rhatorical  pradicata  into  a  casa  fornalisn  j 

(c.f.  Fillnora,  1977,  Spatck-Jonas  and  Boguraav,  1987),  j 

I 

tha  builds  ralational  constituanta  (Parlnuttar,  1980),  and  | 
finally  constructs  a  syntax  traa  with  GPSG  (Oasdar,  1982).  | 

Traas  ara  linaaricad,  and  and  final  uttarancas  ara  produced  j 
by  nocphological  and  orthographic  routinas.  | 

I 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  translate  | 

PURPOSE:  to  dacida  on  syntactic,  sanantic,  and  pragnatic  function.  | 


(dafina  (tcanslata  cp4f ocusecontaxt ) 

(lat  (  (  rp  (first  rp<f  f  ocus4>contaxt )  ) 

(focus  (second  rp4f ocus^contaxt ) ) 
(context  (third  rp>f ecus -fcon text ) )  ) 


cp  «•  rhatorical-pradicata 
focus  list  »  PF  CF  FF 
context  9  given 


(track^blank  ^tracing*  3  3) 

(track  ‘tracing*  3  '(*  1) 

(track  ‘tracing*  3  '(■••••■■•  RHETORICAL  PREDICATE  ••«•■««)) 

(track  ‘tracing*  3  '(■  i) 

(track!  ‘tracing*  3  Mpp-fora  ’,rp)  2) 


) 


( realise 

(assign-syn tax-function 
( assign-relational -function 
rp 

(assign-saaantic-function 
( as sign-pragaatic- function 


rp) 

tP 


) 


) 


) 


focus 


context ) ; 


caalisa  traa 

build  syntax  traa  (unify  w/graninar) 
■aka  syntactic  location  choices 
rhatorlcal  predicate 
case  roles 

focus,  context,  tafarenca 
dacisions/inforaation 


FUNCTION:  assign-pragaatic-function 

PURPOSE:  to  parfora  praaatic  function  analysis  of  tha  rhetorical 

pradicata,  datarmining  focus  and  topic  issuas. 

METHOD:  Focus  shifting  algorithm  basad  on  Sidner's  local  focus  theory. 

Anaphora  decisions  basad  on  focus  information. 


(dafina  (assign-pragaatic-function  rp  focus  context) 


(list 

(second  focus) 

focus 

context 

) 


;  di Bcoursa-topic-antity 
:  focus 

;  currant  context 


) 
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FUNCTION:  a85ign-a«a«ntlc>‘function  I 

PURPOSE:  To  parfora  a  aaaantic  function  analysis  of  tha  santanca  | 

by  partitioning  tha  rhatorical  pradicata  into  casa  rolas.  j 


aganti 1 


(dafina  (assign-saaantic-function  rp) 


(list 

( rp-action  rp ) 

(aacond  rp) 

(third  rp) 

( f unct lonal-ioia  'instruaant  (fourth  rp)) 

( functlonal-rola  'location  (fourth  rp)) 

( f unct iona l>rola  'function  (fourth  rp)) 

{ funetional-rola  ' axtarnal^location  (fourth  rp}) 
( fifth  rp) 


action 

agant  (ona  or  many  w/nodifiars) 

patiant  (ona  or  many  w/modifiars) 

instrunant 

location 

function 

axtarnal  location 

banaficiary  (varbs  w/  indir  obj )  (or 


( sixth  rp ) 

(savanth  rp) 
(causal-action  rp) 
;  (aighth  rp) 

) 

) 


■annar  (or  patiant2] 

t  ilia 

causa 

stata 


FUNCTION:  functional-rola  | 

PURPOSE:  to  taka  a  rola-list  (which  originatas  fron  tha  distinguishing  ) 

dascriptiva  attributaa  (DDA)  list  in  tha  knowladga  basa)  along  | 
with  a  dasirad  rola,  and  raturn  tha  valua  for  that  rola.  | 


(dafina  ( functions  1- to  la  rola  rola-list) 

( cond 

((null  rola-list)  nil) 

((ag  (first  (haad  rola-list))  rola) 

(sacond  (haad  cola-list))) 

(t  (functional-rola  rola  (tail  rola-list))) 

) 

) 


no  nora  laft  to  chack 
found  propar  rola? 

raturn  valua 
alsa  tail  racursa 


FUNCTION:  rp-action  | 

PURPOSE:  to  datarnina  tha  action  of  tha  givan  pradicata  typa.  j 


(dafina  (rp-action  rp) 


( lat  ( ( typa 
( cond 
( ( ag  typa 
( ( ag  typa 
( ( ag  typa 
( ( ag  typa 
{ ( ag  typa 
( ( ag  typa 
( I aq  typa 
( ( ag  typa 

) 

) 

) 


(first  rp) ) ) 

'dafinition)  'ba) 
'attributiva )  'hava)  ; 
'constituant )  'contain)  ; 
'avidanca)  'indicata) 
'illustration)  'ba) 

'  causa-af f act )  'ba) 

'  compara-contrast )  'hava) 
'infaranca)  'ba) 


for  passiva  ->  is  attributad  to 
has  or  contains  /  thara  ara 


FUNCTION:  causal-action  1 

PURPOSE:  to  datarnina  tha  causal  action  of  tha  givan  predicate,  if  pop?.  | 


(dafina  (causal-action  rp) 

( cond 

((and  (ag  ’ causa-af f act  (first  rp)) 
( laaf-noda?  rp ) } 

'  indicata ) 

(t  nil  ) 

) 


causa-effs-rt  preH 
lower  level  of  ti®®- 
use  indicaf? 


FUNCTION!  laaf-noda?  | 

PURPOSE:  to  datamina  tha  givan  rp  raprasants  antitias  at  leaf  noda.  ( 


(dafina  (laaf-noda?  rp) 

(cond  ({or  (act?  (cadar  (fifth  rp)))  (result?  (cadar  (fifth  rp)))))) 

)  ;  lowar  laval  traa 

;  uniaotivatad  —  iiaka  this  donain  indapandant  in  futura 
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rUMCTION: 

PURPOSE: 

METHOD: 


dntnralnn-rnlational- function 

to  dotoraino  constltuont  rolational  inforaatlon  basod  on 
rhatorlcal  pradlcata  alon^  with  focus  Inforaatlon  and  caaas. 
Actlva/paasi va  aurfaca  fora  aalactad  in  ordar  to  aaphaaisa 
f oeua .  If  cf  la  ona  of  a^anta  than  aetiva,  alaa  paaaiva. 
Surfaca  inaartiona  ara  aotlvatad  by  tha  rhatorlcal  priaitivaa. 
In  tha  eaaa  of  tha  action  ”ba",  if  tha  fora  ia  also  paaaiva, 
than  you  achiava  paaaivlaatlon  by  aaana  of  thara  insartion. 


(daflna  (dataraina^ralatlonal^function  rp  action  agant  cf) 


(lat  (<typa  (flrat  rpH 
( volca 

(cond  ((aqual  cf  (haad  (foci  rp))) 
((aaabar  action  Mba  hava))  ' 
{t  'paaaiva})} 


'aetiva) 
aetiva ) 


) 

( cond 

( ( and  ( ag  vole 
(t 

( cona 
volca 
( cond 
< ( aq  typo 
( (aq  typa 
( (aq  typa 
( ( aq  typa 
(t  nil) 

) 

) 


pradicata 
aetiva  voi 
cf  ia  aub 
can't  pa 

alaa  paa 


typa 
if 

jact  foci 
ssiviaa 

ai  va 


'paaaiva)  (aq  action  'ba))  '(aetiva)) 


illuatration)  '  (axaaipla-inaart  ion  )  ) 
infaranca)  ' (tharafora-inaartion) ) 
conetituant)  ' (colon-inaartien ) ) 
cauaa-affact)  * (bacauaa-lnaartion ) ) 


thara*- Insartion 


conplax  aantanca? 


PUNCTZONf  inaartiona 

PURPOSE:  to  insart  ralational  forns  (such  as  ''for  axanpla”)  which  ara 

■otivatad  by  tha  rhatorlcal  pradicatas. 

LIIfOUISTlC 

MOTIVATION:  Wall-connactad  taxt  is  aidad  by  laxical  connactlvaa  which 

halp  to  indieata  tha  rhatorlcal  rola  tha  uttaranca  plays  in 
discoucaa.  Tha  connactlvaa  prasantad  hara  ara  a  subsat  of 
tha  taxonony  of  laarkars  discuaaad  in  Halliday  (199S,  p  302>7) 


(daflna  (Insartions  ralational-structura  fora) 


( cond 

((aq  fora  ' axaapla-insartion ) 

(appand  (list  (haad  ralational-structuta ) ) 

(list  (aapear  'look-up  '(coaaa  for  axaapl 
(tail  ralational-structura ) ) ) 

( ( aq  fora  'colon-inaartion) 

(list  (first  ralational-structura) 

(sacond  ralational-structura) 

(third  ralational-structura} 

(fourth  ralational-structura) 

(fifth  ralational-structura ) 

(sixth  ralational-structura) 

(list  (look-up  'colon}} 

(savanth  ralational-structura) 

(aiqhth  ralational-structura) 

) 

) 

((aq  fora  ' bacausa-insart ion ) 

(list  (first  ralational-structura) 

(sacond  ralational-structura) 

(third  ralational-structura) 

(fourth  ralational-structura) 

(fifth  ralational-structura ) 

(sixth  ralational-structura) 

(list  (look-up  'bacausa)) 

( savanth  ralational-structura ) 

( aiqhth  ralational-structura) 

( cond 

((tanth  ralational-structura)) 

(t  (sacond  ralational-structura) ) ) 

(ninth  ralational-structura) 

) 

) 

((aq  forn  'tharafora-insartion) 

(appand  (list  (haad  ralational-structura)) 


a  coBsia  )  )  ) 

Tha  brain  has  two  han: 
sub jact/aqantl 
pradicata 

di r-ob jact /pat i anti 
ind-ob jact 
ind-ob jact2 
ind-ob jact3 
punctuation 
ind-ob jact 4 /agent  2 
modifiers/patient2 


form  complex  sentence: 
sub ject/agentl 
predicate 

dir-object/patientl 
ind-obiect 
ind-ob ject2 
ind-ob jact  3 

causa-affect  connective 
ind-objact4/agant2 
ind-ob jact 5/a qant 2 

pradicata2 
rapaat  pradicata 
nodif iars/patiant 2 


and 


sub jact/aqantl 
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(list  (■«pc«c  'look-up 

'(coma  tboroforo  coma)})  ;  thorofor*  connoctivA 

(tAll  rolAtionAl-stcucturo) ) }  root  of  rolAtionol  otructuro 

((oq  fora  ' thoro-lnoortion )  ;  Tboro  ato  two  boa  in  tho  broin. 

(CORA  (look-up  'tboro)  rolAtionol-otructuro ) ) 

((oq  fora  ' It-oxt r Apoiltlon )  ;  It  is  Alehoiaor'o  diooooo 

(oppond  (list  (list  (look-up  'it)))  ;  thot  tho  potiont  boo. 

(list  (list  (look-up  'bo)))  ;  lof t-clof t/topicAlisAtion 

rolAtionol-otructuro 

) 

) 

(t  rolAtioRAl-otructuro} 

) 


FUNCTION:  Ao siqn-rol At ionol-f unction 

PURPOSE:  To  toko  function  ond  fora  of  sontonco  ond  gonoroto  a  structuro. 

LINdUISTIC 

PRINCIPLE:  Motivotod  by  Rolotionol  Orsaaor  opprooch,  ottoapt  to  oabody 

gonorol,  oyntox-lndopondont  ruloo  which  govorn  rolotionol 
conotituonto  (og  oubjoct,  objoct,  prodicoto)  rothor  thon 
syntACtic  coapononts  (og  noun  phrooos ,  vorb  phrosos). 


(dofino  (Asolgn-rolAtionol-function  rp  cooo  progaAtics) 


(lot*  ((Action  (first  eoso))  ;  Coos  Rolos 

(ogont  (oocond  cooo)) 

(potiont  (third  cooo)) 

(inotruaont  (fourth  cooo)) 

(locAtion  (fifth  cooo)) 

(function  (sixth  coso)) 

(oxtornol-locstion  (sovonth  coso)) 

(bonoficiory  (oightb  coso))  ;  bonoficisry 

(aonnor  (ninth  coso))  ;  (for  vorbs  w/indir  objoct) 

(tiao  (tonth  cooo)) 

(CAUssl-aetion  (tonth  (toil  cooo)))  ;  for  coaplox  sontoncos 

(stoto  (olovonth  cooo)))  ;  os  in  Q  is  R  oineo  X  indiestoo  V 

(topic  (first  progaotics))  ;  discourso-topic-ontity 

(focus  (socond  progaoties))  :  FP-CP-PP 

(contoxt  (third  progaotics))  ;  provieusly  uttorod  ontitios 

(rolotions  (dotoraino-rolAtionsl-function  rp  Action  ogont  (socond  focus}}) 

(voieo  (first  rolotions))  ;  voico  ■■  octivo  or  possivo 

(fora  (socond  rolotions))  ;  fora  for-oxoaplo,  it-oxtrsposition 

(tonso  (cond  (tiao)  (t  'pros)))  ;  tonso  ••  pros  (dofoult)  or  post 

(prodicoto  (asko-v  Action  tonso  voico))  ;  rolotionol  eonstituonts 

(subjoct  (aoko-np  ogont  focus  contoxt  'ond))  ;  list  of  ogonts/potionts 

(dir-objoct  (aoko-np  potiont  focus  contoxt  'ond))  t  aoko  oil  nps  -f  conj 

(ind-objoct  (asko-pp  Inotruaont  'with  focus  contoxt)) 

(ind-objoct2  (asko-pp  function  'for  focus  contoxt)) 

(ind-objoct3  (asko-pp  location  'locotod-in  focus  contoxt)) 

(ind-objoct4  (asko-pp  oxtornol-locstion  'on  focus  contoxt)} 

(ind-objoct5  (asko-np  bonoficiory  focus  contoxt  'and)) 

(aodifiors  (aoko-np  aonnor  focus  contoxt  'and)) 

(prodicoto!  (asko-v  cousol-sction  tonso  voico)}  ;  socond  vorb 


(track  *trocing*  3  ’(PRAGMATIC  FUNCTION  (  di  scourse-t  opic-ont  i  ty/f  ocus /o  i  l  : 

(traekf  *trocing*  3  '(pp-fora  '.progaotics)  3) 


(track  •tracing*  3  '(SEMANTIC  FUNCTION  :)) 

(track  *trAcing*  3  '(action  ogont  pationt  inst  loc  funct  manner  time 
(trockf  *trocing*  3  Mpp-form  '.case)  3) 


(track  *trAcing*  3  '(RELATIONAL  FUNCTION  (voice  and  fora’:  , rolotions) 


( cond 

((or  (null  subject)  (null  dlr-objoct))  nil)  ;  no  full  sontonco 

((oq  voice  'active)  ;  active  voico 

(lot  ((final-order 

(apply  'Append 

(insertions  (list  subject  prodicoto  dir-objoct  ind-objoct 
ind-objoct2  ind-objoct3  ind-objoct4 
ind-objectS  aodifiors  prodicata!) 
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toem) > ) ) 

(cond  ((null  fin%l-otd«r>  nil)  >  snv*  final  ordar 

(t  (list  f inal'Ordar ) ) ) 

) 


►  ) 

((•q  voice  'pasaiva)  ;  paseiva  voice 

(let  <( final-order  ;  pronota  dir-obj 

(apply  'append  ;  to  subject  position 

(inaartione  (list  dir-objact  predicate  subject  Ind-object 

ind-object2  ind-object3  ind-object4  ind-object5  Modifiers) 

forn) ) > ) 

(cond  ((null  final-order)  nil)  ;  save  final  order 

(t  (Hat  final-order))) 

) 


) 

)  ;  cond 
)  t  let 
)  ;  f  nc 


PUNCTXOH:  rea-nll  1 

PUKPOSE:  to  reaove  nil's  froa  a  Hat  but  preserve  list  structure.  | 


(define  (rea-nil  1) 

( cond 

((null  1)  nil) 

((null  (head  1))  (rea-nil  (tail  1))) 

(t  (cons  (head  1)  (rea-nil  (tail  1)))) 

) 


stop  if  finished 
next  null?  ->  drop  it 
else  keep  it  and  recurse 


FUNCTION:  as sign-syntax-f unction 

PUNP08B:  To  unify  a  lexical  list  with  the  given  graaaar  and  produce  a 

consistent  and  well-featured  syntax  tree. 

METHOD:  Utilises  a  chart  data  structure  which  acta  as  a  well-foraed 

substring  table  containing  all  the  possible  structures. 

First  the  routine  generate-tree  generates  the  chart. 

At  the  end  of  the  unification  process,  the  tree  generation 
procedure  returns  a  list  of  possible  edges  which  represent 
all  the  possible  ways  to  realise  the  given  input.  The 
procedure  output-parses-features  retrieves  the  successful 
realisations  fron  the  chart  by  consistently  percolating 
features  up  the  edges  which  constitute  the  tree. 

As  in  interpretation,  there  aay  be  nore  than  one  possible  way 
to  realise  a  given  structure. 


(define  ( as sign-syntax-f unction  lexical -list ) 

(let  ((lexical-list  (first  lexical-list))) 

(track  ‘tracing*  3  '(LEXICAL  INPUT  TO  SENTENCE  OENEF.ATOR :  )  ) 
(trackf  ‘tracing*  3  Mpp-fora  '.lexical-list)  2) 


(generate-tree  lexical-list  's  ‘graauar*)  realises  surface  for* 


(track  ‘tracing*  3  '(SYNTAX  OUTPUT  FROM  SENTENCE  GENERATOR:)) 
(trackf  ‘tracing*  3  Moutput-parses-features 

( f ind-f eature-parses  's  ',*chsrt*>)  2) 


1  (first 

(parse-tree-feature-list 
(find-feature-parses  's  ‘chart*))) 

►  ) 

) 


select  the  first  succes  f  m  ] 
realiration  for  now 
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I 

MODULI:  lELATIOHAL  QIAMHAI  | 

PUIPOSE:  To  aoko  docisions  on  tho  rolotions  and  dotorniniR9  of  | 

eonstltuonto  ^ivon  oonoatic  <io  rolo)  infornotioo  mn  woll  j 

««  inforaotloR.  I 

OWNEE:  cepywrlto  H«rk  T.  Moybury,  Juno,  1ES7.  j 

I 

LINGUISTIC  i 

PRINCIPLES:  This  codo  is  notivotod  by  rolotionol  9ronnor  (Porlnuttor,  | 

1900),  which  su990«te  intorprototion  and  gonorotlon  roqulrosj 
a  dlatlact  lovol  of  roproaontation  botwoon  ayntax  and  j 

■onantlca.  Purthoraoro,  thia  thoory  ahowa  aoao  proaiao  j 

in  lan^uago  portability.  Tho  ayntactic  oxporta  which  | 

build  rolational  conatituonta  aro  conotrainod  by  pra^aatic  j 
(0.9.  9ivon/Row  coatoxt  and  f ocua )  aa  woll  aa  ayntactic  j 

knowlod90.  Whllo  thooo  ayntactic  oxporta  aro  10090090  | 

dopondont,  and  would  thoroforo  nood  to  bo  robuilt  for  a  now  | 
tar9ot  10090090,  tho  rolational  conatituonta  which  thoy  j 

roproaont  havo  ahown  proaiao  in  univoraality  <c.f.  Colo  j 

and  Sadock.  1977) .  ( 

I 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  nako>np 

PURPOSE*.  to  9onorato  a  noun  phtaoo  baaod  on  tho  a9ontiB)  givon 

METHOD:  Soloct  loxical  ontry 

Gonorato  NP 

INCOMING:  ((brain))  ->  (tho  brain) 

((lobo  Ifrontal)  (toot  languago))  ->  tho  Ifrontal  lob#  a  tho 
((lobo)  (toat))  •>  tho  lobo  and  tho  toat 
((valuo  toat  Indof  1))  »>  a  daaago  valuo  of  ono 
((hoaiophor#  two))  ->  two  hoaiaphoroa 


(dofino  (aako-np  agonta  foeua  contoxt  connoctivo) 
(conjunction 

(aako^all-npa  agonta  focua  contoxt) 
connoctivo ) 


(dofino  (aako>all-npa  agonta  focua  contoxt) 

(cond 

( (null  agonta )  nil ) 

(t 

( appond 

(Hat  (aako-npa  (hood  agonta)  focua  contoxt))  ;  aa)to  flrat  np 

(aako-all-npa  (tall  agonta)  focua  contoxt)  ;  tall  rocurao 

) 

) 

) 


(dofino  (liator  Itoa)  (cond  ((null  itoa)  nil)  (t  (Hat  itoa)})} 


FUNCTION:  aako-npa 

PURPOSE:  to  gonorato  a  noun  phraao  constrainod  by: 

-  pragnatlc  knowlodgo  of  local  focus  and  contoxt  (og  roferent'-’ 

-  rolational  knowlodgo  of  phrasal  compononts 

-  morphological  knowlodgo  of  loxical  agroonont  (og  a,  an> 

METHOD:  If  provioua  discourso  topic  ontity  (og  focus)  is  continuing, 

than  roplaco  np  with  appropriato  anaphora. 

Elao  build  an  appropriato  noun  phraso. 

LINGUISTIC 

STRUCTURE:  NP  guantifior  articlo  modifiors  hoad  post-modif iors 


(dofino  (moko-npo  ogont  focuo  contoxt) 

;  agont  (hoad  modlflor  ^  dotorminor  guantifior) 

(cond 

( (Uflo-onaphora?  agont  focuo)  •  if  forofiontlng  in  roadot 

(lot*  (doacr  (got-ontry  (look'>up  (first  agont))))  ;  uao  anaphoric  roforonco 
(Hat  (pronom  (ayntax  (got-ontry  (look-up  (first  agont)))))) 


) 


2 


:!• 
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Inal) 


) 

(t 

(lat*  ( (haad-antrlaa  (llatar  (look-up  (first  agant)))) 
(haad  (got-antrjr  (car  haad-antrioa  )  )  ) 

(nodlfiora  (listor  (look-up  (aocond  agant)))) 


chack  haad 

gat  laxlcal  cat  of  sona  antry 
look  nedifiar  ( ad j/ordlna l/non 


(nodlflarl  (llatar  (look-up  (fifth  agant))))  ;  nodifarl 
(aftar-dat  (cond  ((gat-antry  (car  nodifiarZ)))  ;  datarnina  word 

((gat-antry  (car  nodlfiara)))  ;  following  datarninar 
(t  haad)))  ;  for  norph  agraanant 

(datarninar  ( aalact-datarninar  agant  haad  contaxt));  salact  datarninar 
(artlcla  (cond  ((listar  (chooaa-articla  aftar-dat  datarninar}))))  ;  dafault  to 
(ef-nun  (cond  ((fourth  agant) 

(liat  (look-up  'of)  (look-up  (fourth  agant)))))) 

(guantlfiar  (listar  (aixth  agant})) 

) 

(appand  guantlfiar  artlcla  nodifiarZ  nodifiars  haad-antrias  of-nun) 


) 


fUHCTION:  haad-typa,  haad-syntax  | 

PURPOSE:  to  datarnina  tha  catagory  or  syntax  of  tha  first  laxlcal  antry.  | 


(dafina  (haad-typa  antrias)  (word-typa  (first  (tail  antrias)))) 
(dafina  (gat-antry  antrias)  (first  (tail  antrias))} 


;  PUltCTION:  choosa-artlcla  | 
;  PURPOSE:  to  salact  an  appropriata  artlcla  fron  tha  dictionary  givan  tha  | 
;  linaar  laxlcal  auccassor  of  tha  datarninar.  | 


(dafina  (choosa-artlcla  antry  typa) 

( cond 

( (ag  typa  nil )  nil ) 

( (ag  typa  'indaf ) 

(look-up  (indafinita  (raalisatlon  antry)))} 

(t  (look-up  (indafinita  (raalisatlon  antry)))) 
;  ( t  ( look-up  '  tha ) ) 

) 

) 


if  nona 

If  indaf  art  chack 
spalling  of  np  haad 

dafault  to  indaf  articla 


I 


► 


t 


PUNCTZOR:  indafinita  | 

PURPOSE:  to  datarnina  tha  propar  indafinita  articla  basad  on  tha  first  | 

charactar  of  tha  providad  word.  | 


(dafina  (indafinita  word) 

(cond  ((nanbar  (first  (axploda  word))  '(a  a  i  o  u))  'an)  (t  'a)) 

) 


POircTlOR: 

PURPOSE: 

THEORY: 


salact-datarninar 

to  salact  a  datarninar  for  tha  np  guided  by  pragmatic 
constraints . 

Haw  infornation  is  ganarally  introduced  by  the  indefinite  art. 
Qivan  infornation  is  ganarally  introduced  by  definite  article. 
RB;  new  Infornation  is  that  which  has  not  yet  been  uttered  to 
tha  spaakar/raader  in  the  current  discourse.  Given  information 
is  all  that  has  been  generated  for  the  speaker/reader. 

If  nass  or  propar-noun,  no  article. 

If  compound  noun,  conplax  noun  (ag  hyphanatad)  or  modi f i a r- > de f 


(dafina  (salact-datarninar  np-akalaten  antry  contaxt) 


(lat  ((catagory  (word-typa  antry))) 

( cond 

((ag  catagory  'propar-noun)  nil) 

( ( ag  catagory  'pronoun)  nil) 

((ag  (noun-typa  antry)  'nass)  nil) 
((ag  (third  np-skalaton)  'nona)  nil) 
((ag  (word-typa  (gat-antry  (look-up 


if  propar  noun  no  articla 
if  pronoun  no  articla 
if  nass  noun  no  artlcla 
supprasaad  articla? 
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(••cond  np-tk«l«ton) ) ) )  ‘ prep«r-nou& )  nil);  Bodlflar  proper-noun? 


<(eq  (third  np-akoloton)  'indef)  'indnf) 
((•g  (third  np-«k«loton)  *def)  'def) 
((givon?  (first  np-aksloton)  coatsxt)  'dsf) 
((not  (null  (second  np-akeleton) ) )  *def) 
((not  (null  (fifth  np-skeleton ) ) )  'def) 

( ( eonplex-noun?  (reslisstlon  entry))  'def) 

( ( conplex-noun?  (first  np-skeleton))  'def) 
((new?  (first  np-skeleton)  context)  'indef) 
(t  'indef) 


indef  article? 
suppressed  article? 
infornation  given?  ->  def 
modifier  to  restrict  interp?  ->  def 
compound  noun?  ->  def 
complex-noun?  ->  def 
complex-noun?  ->  def 
information  new?  ->  indef 
else  default  to  indef 


;  PUNCTIOH: 
;  PURPOSE: 

given?  | 
to  determine  if  an  entity  has  been  mentioned  previously  (in  j 
recent  conversation)  and,  therefore,  is  known  or  in  the  "front  j 
of  the  mind"  of  the  reader/listener.  j 

(define  (given?  entity  context) 

(member  en 

tity  context ) ) 

;  simply  past  focus  is  not  rich  enough 

PURCTZOM: 

PURPOSE: 

new? 

to  determine  if  an 
by  testing  if  it  is 
first  time. 

1 

entity  can  be  considered  as  new  Information  | 
juat  being  mentioned  in  context  for  the  j 

1 

(define  (new?  entity  context) 

(not  (memb 

er  entity  context))) 

;  not  already  utterred 

PURCTIOR: 

PURPOSE: 

complex-noun? 
to  determine  if  the 

1 

provided  entity  is  a  complex  noun.  | 

(define  (complex-noun?  noun) 

(member 

(explode  noun))) 

;  if  has  a  hyphen,  it's  a  complex  noun 

PUNCTtON: 

purpose: 

conjunction  | 
to  take  a  list  of  constituents  and  return  a  list  with  the  | 
linear  order  of  constituents,  appropriate  punctuation,  and  | 
insertion  of  the  connective.  j 

(define  (conjunction  constituents  connective) 


( cond 

((null  (toil  constituents))  (head  constituents))  ;  only  one? 
{(null  (tall  (tail  const ituen ts / m  ;  just  before  end? 

(append 


(head  constituents) 

(list  (look-up  connective)) 
(first  (tail  constituents))) 


take  next  to  last 
connective 

last  item 


(t  (append 

(head  constituents)  ;  else  tail  recurse 

(list  (look-up  'comma))  ;  building  list  with  punct. 

(conjunction  (tail  constituents)  connective)) 


PUNCTION:  make-v 

PURP08B:  to  generate  a  verb  structure  based  on  the  action  and  tense. 

METROD:  Select  lexical  realisations  of  action 

Select  rules  based  on  entry  syntax 
Choose  article  if  necessary 

Choose  particle  if  necessary  for  verbal  phrase 
Oenerate  HP 


(define  (make-v  action  tense  voice) 


(let*  ((entries  (look-up-verb  action)) 
(head  (head-type  entries)) 
(auxiliary 


;  search  lexicon  for  action  realisations 
;  use  for  aux  selection  in  future 
;  select  an  appropriate  aux 
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(choos«>«ux  ftction  tuns*  voic«))) 

( cond 

( Auxiliary 
<  «pp«nd 
auxiliary 
(lilt  (list  action 

(aaka-varba-paat-participla 
(a-liat  action)))) 

( varbal-phraaa  action  voica) 

) 

) 

(antrlas  (list  antrias)) 

(t  nil) 

) 

) 

) 


if  raquira  auxiliary 
aux 

*■  varb 

tansa  >  past  particpla 
'f  particla  for  varbal  phrasa 


also  just  antrias  if  any 


PURCTIOR: 

PURPOSE: 


ZRPUT: 
OUTPUT  t 


aaka-varbs-past-partlcipla  (*aat"  ->  "aatan") 

To  raturn  tba  list  of  dictionary  dascriptiena  u)iich  appaar  in 
tha  givan  a-llst  of  aona  word,  filtarad  so  that  tha  varbs  ara 
past-partlcipla . 

tha  association  list  for  tha  word 
Tha  nodifiad  a-list 


(dafina  (naKa-varbs-past-participla  a-list) 


( cond 

((null  a-^list)  nil) 

((aq  (word-typa  (haad  a-list))  'varb)  ; 

(appand  ; 

(list 
( cons 

(appandl 

(ny-dalata  'varb 

(subst  'past  'pros  (syntax  (haad  a-list)))); 
'an) 

(list  (sanantics  (haad  a-llat)))  ; 

(list  (raalisatien  (haad  a-list)))  ; 

) 

) 

(sialta-varbs-past-partlcipla  (tail  a-list)} 

) 

) 

(t  (naka-varbs-past-partieipla  (tail  a-list))) 

) 

) 


changa  only  if  varb 
attach  flxad  haad  to  tail 
fix  haad 


changa  to  past-participla 

sava  sanantics 
sava  raalication 


chack  tail 


alsa  chaelc  only  tail 
(throws  out  non  varbs) 


PURCTIOR:  chooea-aux  | 

PURPOSE:  to  salact  an  appropriata  auxiliary  fron  tha  dictionary  givan  j 

tha  word  antry.  j 


) 


» 


r 


! 

1 

I 


(dafina  (choosa-aux  action  tansa  voica) 
( cond 

((sg  voica  'passlva) 

( cond 

( (nanbar  action  '(ba  hava))  nil) 

(t  (list  ( look-up-varb  'ba))))) 

(t  nil) 

) 


if  voica  passiva 
non-passifiabla  v«rb? 
raturn  nil 

elsa  raturn  auxiliary 
otherwisa  there  is  none 


PURCTIOR:  varbal-phrasa  | 

PURPOSE:  to  raturn  tha  appropriata  verbal  particle  to  complete  the  j 

varbal  phrasa  in  tha  passiva  tansa.  | 


(dafina  (varbal-phrasa  varb  voica) 

(cond 

((aq  voica  'passiva) 

(cond 

((aq  varb  'contain)  (list  (look-up 
((aq  varb  'indlcata)  (list  (look-up 
(t  nil) 

) 


;  passiva  voice? 

;  raturn  particla  based 
in)))  ;  upon  varb  type 

by )  ) ) 

;  or  nothing  at  all 


I 
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(t  ail)  ;  othsrwiB*  nil 

) 

) 


ruRCTIOIIi  aakB-pp 

PUXPOSBs  to  goBorato  a  pp  atructura  baaad  on  tha  objact  providad 
MBTHOD:  Salaet  laxical  antry 

Salaet  rulaa  baaad  on  antry  syntax 
Choosa  articla  it  aacaaaary 
Qanarata  pp 


(dafina  (aaka-pp  objact  ralation  focus  contaxt) 

(lat*  ((antriaa  (look-up  (first  objact)))  ;  saarch  dictionary 

(proposition  (choosa-prap  ralation)))  ;  salaet  an  appropriata  proposition 

( cond 

((null  antrias)  nil)  ;  no  raalisatlon  or  no  objact 

((null  proposition)  nil)  ;  no  praposl  Ion  nil 

(t  (appand  proposition  (aaka-nps  objact  focus  contaxt) )i  ;  also  build  trua  np 

) 

) 

) 


PUMCTIOll:  ctioosa-prapositlon  | 

PtlkPOSf:  to  salaet  an  appropriata  proposition  froa  t):a  dictionary  givan  ) 

uord  antry.  j 


(dafina  (chooaa-prap  typo) 

( cond 

Mag  typo  'loeatad-in)  (list  (look-up  'locatad)  (look-up  'in))) 
(t  (list  (look-up  typo))) 

) 


PUNCTIOM:  aalact-vord  | 

PURPOJI:  to  choosa  a  word  froa  a  list  givan  a  constraining  syntax  | 

and  raturn  a  word  daseription  with  a  bound  faatura  list.  I 


(dafina  (salact-word  syntax  word-list) 

(lot*  ( ( variabla-countar  30) 

<f aaturas  ( rachristan-variablas  syntax ) ) 

(word-syntax  (rachristan-variablas  (syntax  (haad  word-list)}))) 

( cond 

((ay-unify  faaturas  word-syntax)  ;  doss  this  word  unify? 

(list  ;  if  yas ,  raturn  it 

(ay-bind  faaturas  ;  instantiatad 

(ay-unify  faaturas  word-syntax)} 

(saaantics  (haad  word-list)) 

(rasllsation  (haad  word-list)))) 

(t  (salact-word  syntax  (tail  word-list)))) 

) 

) 


PUNCTXOR:  gat-faatura  | 

PURPOSE:  to  raturn  tha  f aatura/valua  list  givan  the  feature  name  s,  syntax) 


(define  (get-feeture  feature  syntax) 

( cond 

( (null  syntax  )  nil ) 

(distp  (head  syntax)) 

(cond  ((ag  feature  (first  (head  syntax)))))) 
(t  (gat-faatura  faatura  (tail  syntax) M) 


SECTION  10 


GENERATE  MODULE 


.1 


sun  AU9  30  15:08:03  1987 

(((<((((<(((<((<<(<((<<<<((((«^^^^^ 

MODULE:  OEHEEATE  COMPILE 

PUEPOSB:  To  conpll*  routinoa  which  porforn  syntactic  qanaratlon. 

OWESR:  copywrita  Nark  T.  Naybucy.  Juna*  1987.  I 

PRINCIPLE:  Thia  coda  leads  tha  syntactic  nodulas  which  usa  a  unification 
faatura  qrannar  to^othar  with  latical  antrlas  to  ganarata 
a  wall-fornad  syntactic  traa.  This  avantually  will  ba  j 

linaarisad,  and  tha  syntactic  catagociaa  will  guida 
salactlon  of  norphology. 

))))))))))))))))))))))))))))))))))))))))^^^^^^ 


daclara  global  variablaa,  nacros  conpilad  and  avalad  during  conpila  *** 


(daclara  (apacial  ‘tracing*  ‘grannat*  *non-tarninala* 

♦syntax-grannar*  ^ 

*gra»narloadad*  ‘diet ionary loaded*  •knowladgabasaloadad** 
*aantancaparsad* 

‘agenda*  ‘chart*  ‘stack* 

‘rasponsa* ) 

( macros  t ) ) 

(include  "/I  isp/aanant  ics/localf  .  parse  »  local  functions  for  efficiency 

;**  following  used  for  debugging: 

Mincluda  /usar/sgp/l ispaids/t raaprint . 1 >  ;  traa  printing  functions 

(include  “/lisp/syntax/f tnd  parses. 1)  ;  routines  for  listing  tula  firings 

(include  ‘’/llsp/syntax/rula^traas . 1 1  ;  routines  for  listing  rule  firings 

(include  •/lisp/syntax/dabug. 1 )  ;  ^abug  routines 

dictionary  routines  **• 

(include  “/liap/dictionary/dietionacy  nacroa . 1 >  ;  functions  to  create  a  dictionary 

(include  */llsp/dlctlonary/«akadictionary.l)  :  functions  to  create  a  dictionary 

(include  •/liap/dictlonary/ganlookup.l)  ;  functions  for  dictionary  look-up 

Mincluda  */liap/dlctionaty/lookup . 1 )  ♦  functions  for  dictionary  look-up 

Mincluda  */llsp/dictionacy/toot . 1)  *  root  finder  for  words 


;***  generator  and  chart  routines  “* 

Include  "/I isp/grannats/gan^cf g2 . 1 ) 
include  ’/liap/ayntax/catagory . 1 ) 
include  surf aca_ganara tor . 1 ) 
include  conpilagran. 1 ) 
include  praprocass . 1 ) 
include  Vll»P/»yntsx/praprocasB . 1 ) 
include  “/I isp/synt ax/vartax_adga . f as t ) 
include  "/lisp/syntax/unif ication.l ) 
include  "/lisp/syntax/f aatura^par see . 1 ) 

'* /I  4  an/auntav /f  •ature  DrOcaSB.faS 


functions  for  ganarating  santancas  from  CFO 

functions  for  lax  category  saarch/match 

syntax  traa  ganaration  routines 

graisaar  compile  routines 

local  routinas  for  preprocessing 

routines  for  preprocessing 

routines  for  vertices  end  edges 

routines  for  unification  *  binding 

u4«-K  Vaaturaa 


iclude  •’/lisp/syntex/unificetion.l)  ;  routines  tot  uniticacion  ♦  o^naing 
iclude  "/lisp/syntax/f eature^^peroes . 1 )  ;  routines  for  parsing  with  testures 
iclude  "/lisp/syntax/f eature~procesB . fast »  ;  processing  feature  routines 
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•«*••*•*•***•***  TREBPRINTER  ••**•**************•**•••********•*****•***** 
prints  a  labsllad  brackating  out  as  a  tra*.  If  no  sacond  arguaant 
is  givan,  output  is  asuunad  to  ba  tha  standard  (i.a.  tarainal). 

A  sacond  arguaant  nust  avaluata  to  an  output  port: 

(traaprint  <traa>  <port>) 

Syntax  of  input  is: 

<traa>  ( <noda-l abal >  <daughtar>*) 

<daughtar>  <traa> 

tarainals  ara  tha  casa  whara  tha  noda  labal  is  tha  only  aanbar  of  tha  traa 
a.g. 

(traaprint  Ms  (np  (n  (joa)))  ( vp  (v  (likasM  (np  (n  (nary} 

Whara  noda-labals  ara  not  atons,  tha  fn  'noda-labal'  will  naad  changing. 

NB  Riaxinuii  width  govarnad  by  Frans  dafsults 
«**«*  ******«***********«***«*),(ji^2N  rKS**************************** 


;;  traaprint  is  a  laxpr: 

(dafun  traaprint  (s  (optional  (port  nil)) 

(satg  s  ( maka-t  raa-laval  s  ( f  ind-max'-dapth  s  0))) 

(satq  s  ( raplaca-^al  1-nodas  s  nil)) 

(  annotata-nodas-'wi  th-wi  dth-inf  o  s  0  nil) 

( t raaprint-aux  (list  s)  port  nil] 

;  first  tha  traa  is  adjustad  so  that  all  tha  tarminals  ara  at  the  sama 
;  dapth  from  tha  root.  Dummy  nodas  ara  uaad  to  maka  tha  traa  a  uniform 
;  object.  Both  they  and  tha  actual  nodas  ara  raplacad  by  gansyms ,  and  attached 
;  to  tha  gansym  as  a  proparty  by  raplaca->all»nodas . 

;  ' annot ata>nodas-wi th-width'inf o '  goes  down  tha  traa 

;  racursivaly  attaching  to  each  noda  as  a  property  its  width: 

;  tha  number  of  characters  in  tha  widest  symbol  from  it  to  the  terminal 
;  it  dominates  (or  sum  of  such  if  a  branching  noda).  This  is  used  by  tha 
;  actual  printing  functions  to  centra  each  node  properly. 


(def  t reeprint-aux 
(lambda  (s  port  next) 

(if  (setg  next  (print-nodes  s  nil  port)) 
than  (print-downstrokes  s  port) 

(if  (no-branching-in-any  s) 

than  ( traaprint-aux  next  port  nil) 
else  (print-horixontals  s  port) 

( traeprint-aux  next  port  nil)) 
else  ( tarpr  port ) 

.  ******  levelling  a  tree****************************** 

;  extra  dummy  nodes  of  form  a.g.  '•*'  are  added  to  make  sura  all  the 
terminals  are  at  the  sama  depth.  This  makes  life  easier,  and  usually 
looks  better 

(def  is-preterminsl 
( lambda  ( i ) 

(and  (atom  (car  i))(atom  (caadr  i))(null  (cdadr  i) 

(def  make-tree-level 
(lambda  (tree  depth) 

(if  ( is-preterminal  tree) 

then  ( add-axt ra-depth  tree  depth) 
else  (cons  (car  tree) 

(mapcar  M lambda ( x )( make-t ree-leval  x  (subl  depth))) 

{ cdr  tree] 

;  goes  up  and  down  a  tree  adding  extra  nodes 

(def  find-max-depth 
(lambda  (i  counter) 

(if  (null  i)  then  counter 
elseif  (atom  (car  i)) 

then  (max  counter  (find-max-depth  (cdr  i)  counter)) 
else  (max  (find-max-depth  (car  i)  (addl  counter)) 

(find-max-depth  (cdr  i)  counter] 

(def  make-dummy-node 
(lambda  (node) 

(implode  (mapcar  Mlambda  (x)(quota  *))  (explode  node] 


;  makes  node  consisting  of  *s,  same  length  as  original 
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( d*f  add-«x t r A-d«pth 
(laabda  (pr«->t»riin  axtra-dapth) 

(list  (car  pra-taran) 

( add-ax t  ra-dapth-aux 

( ■aka-dUBsiy-neda  (car  pra-taran)) 

(cadr  pra-taran) 

( subl  axtra-dapth] 

(daf  add-axt ra-dapth-aux 
(lambda  (dummy  tarmlnal  axtra-dapth) 

(rf  (lassp  axtra-dapth  1)  than  tarminal 
alsa  (list  dummy  ( add-axt ra-dapth-aux  dummy  tarminal  (subl  axtra-dapth] 

;  ***  LABELLING  THE  NODES  ************************************** 

aach  noda  in  tha  traa  is  raplacad  by  a  naw  symbol,  acting  as  an 
;  indax  for  Information  about  how  wida  tha  constituant  is,  and  how  big 
tha  noda  itsalf  is 

(daf  raplaca-all-nodas 
(lambda  (traa  labal  ) 

(if  ( null  ( cdr  traa  )  ) 

than  (satq  labal  (gansym  (car  traa))) 

(putprop  labal 

(noda-labal  (car  traa)) 

’  catago  ry ) 

(list  labal) 

alsa  (satq  labal  (gansym  (car  traa))) 

(putprop  labal 

(noda-labal  (car  traa)) 

' ca t ago  f y } 

(cons  labal  (mapcar  '(lambda  ( x ) < raplaca-al l-nodas  x  nil))  (cdr  tree) 

(daf  noda-labal 
( lambda  ( i  ) 

(if  (aq  **  (cat  (axploda  i)))  than  '  i 
alsa  i  I 

;  for  a  grammar  using  non-atomic  noda-labals  this  fn  has  to  ba  different 


(daf  annotata-nodas-with-width-infc 
(lambda  (traa  biggest-so-f ar  nodalangth) 

(satq  nodalangt)>  (atom-langth  (gat  (car  tree)  'category))) 

(if  (null  (cadr  traa))  ;tarminal 
than  (putprop 

(car  traa) 

(satq  bigqast-so-f ar  (addl  (max  biggast-so-f ar  nodalangth))) 
'width) 

biggast-60-far 
alsa  (putprop  (car  traa) 

(satq  biggast-so-far 

(  sum-uidths  (cdr  traaMmax  biq^ast-so-far  nodalangth  I  )  I 
‘width ) 

biggast-so-far  J 
(daf  sum-widths 

(lambda  (traa-list  biggast-yat) 

(if  (null  traa-list)  than  0 

alsa  (plus  (annotata-nodas-with-width-info  (car  traa-list)  biggast-yat  nil) 
(sum-widths  (cdr  traa-list)  biggast-yat) 

(daf  atom-langth 
( lambda  ( a ) 

(length  (axploda  a) 

.******  printing  a  node  ****************************** 

(daf  print-nodes 
(lambda  (old  naw  port* 

(if  (null  old)  than  (tarpr  port) 
naw 

alsa  (print-node  (car  old)  port) 

(print-nodes  (cdr  old  )(appand  naw  (cdr  (car  old)))  port) 

(daf  print-node 
(lambda  (const  port) 

( prog  ( Ingth  dl f f ) 

(satq  Ingth  (atom-langth  (gat  (car  const)  'category)}) 

(satq  diff  (difference  (gat  (car  const)  'width)  Ingth)) 

(msg  (P  port)(B  (quotient  diff  2))) 

(print  (gat  (car  const)  'category)  port) 

(if  (avanp  diff)  than  (msg  (P  port)  (B  (quotient  diff  2))) 
alsa  (msg  (P  port)(B  (addl  (quotient  diff  2))))) 
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.**««««««*•«*««* fct* ft #•«««  VERTICAL  LINES  **•*****•******•**•*•**»****** 

(d«f  print-down strokes 
( lambda  (cl  port) 

(if  (null  cl)  then  (terpr  port) 
else  ( print-downs t roke  (car  cl)  port) 

( pr int-downs t r okes  (cdr  cl)  port) 

(def  pr int-downst roke 
(lambda  (const  port) 

(prog  (diff) 

(setq  diff  (difference  (get  (car  const)  ’width)  1)) 

(msq  (P  port)(B  (quotient  diff  2))) 

(print  '  !  port  ) 

(if  (evenp  diff)  then  (msg  (P  port)(8  (quotient  diff  2))) 
else  (fflsg  (P  port)(B  (addl  (quotient  diff  2))))) 

( return  t  ] 

.  *****ftft*ft*ftftftft****ftft*ft  PRINT  HORIZONTALS :*****.»*•***********•********* 

(def  no-branching- in 
( lambda  ( i ) 

(«q  ( length  i  )  2  1 

(def  no-branching-in-any 
( lambda  ( 1 ) 

(if  ( nul 1  1 )  then  t 

elseif  (no-branching-in  (cat  1)) 

then  ( no-branching-in-any  (cdr  1) 

(def  print-horizontals 
(lambda  (cl  port) 

(if  (null  cl)  then  (terpr  port) 
elseif  ( no-branching-in  (car  cl)) 

then  ( pr int-do wns t r oke  (car  cl)  port) 

(print-horizontals  (cdr  cl)  port) 
else  ( pr in t-ho r-aux  (cdar  cl)  t  port) 

< pr int -ho r izont a  1 s  (cdr  cl)  port) 

( def  dashes 
( lambda  ( n  port) 

(if  (zerop  n)  then  nil 
else  (print  '  port) 

(dashes  Tsubl  n)  porti 

(def  print-hor-aux 
(lambda  (cdauqhters  ifi-first  port) 

(prog  (diff) 

(setq  diff  (difference  (get  (caat  cdauqhters)  'width)  1)) 

(if  (null  (Cdr  cdauqhters)) 

then  (dashes  (addl  (quotient  diff  2))  port) 

(if  (evenp  diff)  then  (msq  (P  port)fB  (quotient  diff  2))) 
else  (msg  (P  poct)(B  (addl  (quotient  diff  2)))  )) 
elseif  is-first 

then  (msg  (P  port){B  (quotient  diff  2))) 

{ dashes  1  port  ) 

(if  (evenp  diff)  then  (dashes  (quotxent  diff  2)  port) 
else  (dashes  (addl  (quotient  diff  2))  port)  ) 

(print-hor-aux  (cdr  cdaughters)  nil  port) 
else  (dashes  (get  (caar  cdaughters)  'width)  port) 

(print-hor-aux  (cdr  cdaughters)  nil  port) 
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rUNCTXON:  conplata-adgas 

PURPOSE:  To  return  tha  subset  of  the  list  of  given  edges  which  are 

coiiplete  edges. 


(define  ( coiiplete~«dges  edges) 

( cond 

((null  edges)  nil)  ;  no  more  left?  ->  go  home 

((complete?  (head  edges))  ;  first  complete? 

(cons  (head  edges)  ;  save  it 

(complete-edges  (tail  edges))))  ;  check  for  complete  in  tail 

(t  (complete-edges  (tail  edges)))  ;  else  just  check  tail 

) 

) 


FUNCTION:  incomplete-edges 

PURPOSE:  To  return  the  subset  of  the  list  of  given  edges  which  are 

Incomplete  edges. 


(define  (incomplete-edges  edges) 

( cond 

( ( null  edges  I  nil) 

((incomplete?  (head  edges)) 

(cons  (head  edges) 

(incomplete-edges  (tail  edges)))) 
(t  (incomplete-edges  (tail  edges))) 

» 

) 


no  more  left?  ->  go  home 
first  incomplete? 
save  it 

check  for  incomplete  in  tail 
else  just  check  tall 


FUNCTION:  output-trees 

PURPOSE:  To  print  ou.  a  tree  listing  of  the  parsings. 


(define  (output-trees  successful-edges) 

(let  ((trees  (parse-tree-list  successful-edges))) 
(blank  2) 

(mapc  'treeprint  trees) 

) 

) 


FUNCTION:  output-parses 

PURPOSE:  To  print  out  a  nice  listing  of  the  parsings. 


(define  ( output-parses  successful-edges ) 

(let  ((trees  ( pa c se- 1 ree- 1  is t  successful-edges))) 
(blank  2) 

(princ  (aval  Mpp  .trees))) 

) 

) 


FUNCTION:  parse-tree-list 

PURPOSE:  To  translate  a  list  of  successful  edges  into  parse  trees. 

**«****««**«***«**«*«***«**«****************«***ft***********ft*ft**ft***ft**ft««i 

(define  (parse-tree-list  successful-edges) 

(mapcar  'make-tree  successful-edges) 

) 


FUNCTION:  make-tree 

PURPOSE:  To  generate  a  tree  parse  structure  from  the  information  on 

the  edge . 
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(d*fin*  •dg«} 

<  cond 

f  ( ( Is-a-catagory  (cat«gory-of  •dg*)) 

(list  (cstsgory-of  sdgs)  (contsnts-of  sdgs } ) 

) 

(t  (cons 

(cstsgory-of  edgs) 

(■spcsr  'Bsks-trss  (contsnts-of  sdgs)) 

) 

) 

) 


if  sdgs  Is  IsKlcsl 
list  (cstsgory  contsnts  ) 


hssd  s  cat  of  sdgs 
tail  s  trsss  of  contsnts 


FUNCTION:  flnd-parsss 

PURPOSE:  To  find  all  ths  parsss  fron  ths  chart  by  finding  all  ths 

cowplsts  parsss  starting  with  sdgss  frost  start. 


(dsfins  (find-parsss  startsyaibol  chart) 

(1st  ((start  (first  chart))  ;  start  s  first  vsrtsx  in  chart 

(finish  (car  (last  chart))))  ;  finish  «  last  vsrtsx  in  chart 

( f ind-all-parsss 
sta  rt  synbo 1 
finish 

(sdg3s-out  start)  ;  sxamins  ths  sdgss  front  start 

) 

) 

) 


FUNCTION 
PURPOSE : 


find-all-parsas 

To  rscurss  on  ths  list  of  all  sdgss  from  ths  start  vsrtsx  and 
tsst  to  sss  If  thsy  nsst  ths  thrss  conditions  required  to  be 
a  legal  parse: 

1  —  sdgs  out  must  have  start  symbol  label. 

2  --  ths  right  vsrtsx  of  edge  must  be  ths  finish  vertex. 

3  —  there  must  be  no  mors  required  const! tusn ts . 


(dsfins  ( f ind-al l>parsss  startsymbol  finish  sdgss>out -of -sta r t ) 

( cond 

((null  sdgss-out-of-start )  nil) 

(  ( and 

(sq  (catsgory-of  (head  sdgss-out-of-start ) ) 
startsymbol ) 

(sq  ( right-vsrtsx-of  (head  sdgss-out-of-start ) ) 
finish  ) 

( sq  (nssdsd-of  (head  sdgss-out-of-start)) 
nil )  ) 

(cons  (head  sdgss-out-of-start) 

( find-all-parsss 
startsymbol 
finish 

(tail  sdgss-out-of-start)) 

) 

) 

(t  (find-all-parsss 
startsymbol 
finish 

(tail  sdgss-out-of-start  I) 

) 

) 

) 

•t*«««*********««*******«*************ft*ft*ft******«*****««**«*«t*****«******t 

;  FUNCTION:  rsmovs-sdgs 

;  PURPOSE:  To  get  ths  next  sdgs.  By  sltsring  this  routine  ws  can  vary 
;  ths  search  process.  If  ws  pop  ths  item  from  ths  agenda,  ws 

;  will  search  depth  first.  By  removing  ths  next  sdgs  from  ths 

;  bottom  of  ths  agenda  ws  will  search  breadth  first. 


(dsfins  (rsmovs-sdgs  agenda) 


I 


;  finished  ->  quit 
;  parse  good  if: 

I  sdgs  is  start 
;  symbol  and 

;  2  right  vsrtsx  is 

;  last  vsrtsx  and 
;  3  no  needed  constituents 

;  Icssp  head  of  list  with 
:  examine  tail 


else  examine  tail 
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(■y-pop  (•val  «g«nda)) 
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://////////////////////////////////////////////////////////////////////////// 

I 

;  MODULE ;  KULE  TREES  AND  TRACE  I 

;  PURPOSE:  To  provldo  support  fox  xotrlsvinp  lulos  spplisd.  t 

;  I 

;//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  output-ruls-trsso 

PURPOSE:  To  print  out  «  tr««  llstin9  of  tbo  rulos  Applied. 


(define  ( output- rule- t rees  successf ul-ed^es ) 

(let  ((trees  (rule-tree-list  successful-edges))) 
(blan)c  2) 

(aepc  'treeprint  trees) 

) 


FUNCTION:  output -rule 8 

PURPOSE:  To  print  out  a  nice  listing  of  the  parsings  for  feature  parse- 


(define  (output- rules  successful -edges) 

(let  ((trees  (rule-tree-list  successful-edges))) 
( blank  2 ) 

(princ  (aval  ' ( pp  , trees))) 

) 

) 


FUNCTION:  rule-tree- list 

PURPOSE:  To  translate  a  list  of  successful  edges  with  their  bindings 

into  parse  trees. 


(define  (rule-tree-list  successful -edges) 

( cond 

{ ( eq  *8entenceparsed*  'top-down)  ;  top  down? 

(mapcar  ' make-rule-t ree  successful-edges)) 

(t  (iiapcar  ' make-rule-t reel  successful-edges))  ;  else  bottom-up 

> 

) 


► 


FUNCTION:  make-rule-tree 

PURPOSE:  To  build  a  complete  tree  structure  from  an  edge  by  calling 

make-tree  on  all  the  included  edges  for  feature-less  grammmar. 


(define  ( mske-r ule-t ree  edge) 

( cond 

((is-a-category  (category-of  edge)) 

(list 

(rule-of  edge) 

(list  (contents-ot  edge)) 

) 

) 

(t 

( cons 

(rule-of  edge) 

(mapcar  ' make- rule-t ree  (contents-of  edge)) 

) 

) 

) 

) 


lexical  edge? 
list  of 
rule  of  edge 
semantics  or  word 


rule  of  edge 
contained  edges 


FUNCTION :  make-rule-t ree2 


2 
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PURPOSE:  To  build  a  coaplata  tr««  atructuro  fro*  an  adga  by  calling 

■aka-'traa  on  all  tha  includad  adgaa  toe  a  faatura  graanar. 


(dafina  ( aaka-cula-traa2  adga) 

( cond 

( ( ia-a-catagory  (firat  <catagory-of 
( liat 

( rula-of  adga ) 

(liat  (contants-of  adga)) 

) 

) 

( t 

( cons 

(rula-of  adga) 

(■apear  'aiaka-rula-traaS  (aapear 

) 

) 

) 

) 


adga ) ) ) 


laxical  adga? 
list  of 
rula  of  adga 
aaaantics  or  word 


;  rula  of  adga 
car  (contants>of  adga))) 

;  containad  adgas 


FUNCTION:  f ind-rula-t raas 

PURPOSE:  To  find  all  tha  rulas  from  tha  chart  by  finding  all  tha 

coaplata  rulas  starting  with  adgas  fron  start. 


(dafina  ( f ind-rula-traas  startsynbol  chart) 

•Izt  ((staiv  cnart))  ;  start  •  first  vartax  in  chart 

(finish  (ear  (last  chart))))  :  finish  >  last  vartax  in  chart 

(find-all-rula-traas 
startsymbol 
finish 

(adgas^out  start)  ;  axamina  tha  adgas  from  start 

) 

) 

) 

;  FUNCTION:  f ind-all-cula-traas 

;  PURPOSE:  To  racursa  on  tha  list  of  all  adgas  from  tha  start  vartax  and 
;  tast  to  saa  if  thay  maat  tha  thraa  conditions  raguirad  to  ba 

;  a  lagal  traa: 

;  1  adga  out  must  hava  start  symbol  labal. 

;  2  —  tha  right  vartax  of  adga  must  ba  tha  finish  vartax. 

;  3  --  thara  must  ba  no  mora  raguirad  constituents. 

;  OUTPUT:  Return  tha  list  of  adgas  with  their  rula  contents  which  rap 

;  tha  valid  parses  in  tha  chart. 

.«********«**•••«*»******••****••*»*********•**•**************«**•*•«**•***« 


(dafina  ( f ind^al 1- rul a-t raas  startsymbol  finish  adgas-out-of-start ) 

(  cond 

((null  adgas-out-of-start )  nil)  ;  finished  ->  quit 

((and  :  parse  good  if: 

(aq  (first  .’Ifirstof 

(catagory-of  (head  adgas-out-of-start)))  ;  1  cat  of  adga  is  start 

startsymbol)  ;  symbol  and 

( aq  ( right-vartax-of  (head  adgas-out-of-start))  ;  2  right  vartax  is 
finish)  ;  last  vartax  and 

(aq  (naedad-of  (head  adgas-out-of-start))  ;  3  no  needed  constituents 

nil )  ) 

(cons 

(list 

(head  adges-out-of-sta rt )  ;  keep  head  of  list  with 

(contants-of  (head  adgas-out-of-start))  ;  its  bindings 


( f ind-all-rula-treas  ;  examine  tail 

startsymbol 
finish 

(tail  adgas-out-of-start )  ) 

) 

) 

(t  ( f ind-all-rule-traes  ;  else  examine  tail 

startsymbol 
finish 

(tail  adgas-out-of-start)) 

) 

) 

) 


1 
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//////////////////////////////////////////////////////////////////////////// 
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1 

MODULE:  DEBUG  I 

PURPOSE:  To  provld*  a  dobug^inq  tool  for  tho  prograsaar  as  wall  as  a  | 

■athod  of  axaaing  the  chart  If  tha  user  is  intarastad.  | 

I 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  ay-dabug 

PURPOSE:  To  aid  aysalf  debugging  as  wall  as  to  aid  in  process 

explanation  by  aaking  tha  chart  procedure  transparent  to  tha 
caller  of  tha  function. 


(define  (ay-dabug ) 

( tarprl > 

(princ  "Please  Choose  an  itaa  below,  h  for  help")  (terpri) 

(princ  "[VertexN,  EdgeN,  Chart,  Agenda,  Graaaar,  Parses,  Store,  Quit,  Help]?  ") 

(terpri)  (princ  "What  next?  ") 

(setq  input  (read)) 

(let  ((coaaand  (car  (explode  input))) 

(nuaber  (reverse  (cdr  (explode  input))))) 

( cond 

((eq  coaaand  'v)  (cond 

((eq  *aentenceparsed"  'top-down) 

( display-vertex-td  (itea-fend  'vertex  number))) 

(t  ( di  splay-ve  rtex-bu  (item-fend  'vertex  number))) 

( terpri ) ) ) 

((eq  command  'e)  (display-edge  (item-fend  'edge  number))) 

((eq  command  'c)  (blan):  2) 

(print-list  (append  '(CHART  CONTAINS:)  *chart")) 

( blank  2  )  ) 

((eq  command  -4)  (blank  2) 

(print-list  (append  '(AGENDA  IS:)  *agenda*)) 

(blank  2) ) 

((eq  command  'g)  (terpri)  (aval  Mpp  , ^grammar" ) ) ) 

{(eq  command  'p)  (terpri)  (princ  "Wh:ch  part  of  sentence  (s  np  vp  etc)?  ") 

(setq  *input*  (read)) 

(terpri ) 

( cond 

((eq  *8entenceparsed*  'top-down) 

(let  ((parse-parent-edges  (find-parses  *input*  *chart*))) 
(output-parses  parse-parent-edges)  (terpri) 

(output-rules  parse-parent-edges)  (terpri) 

( output-t  rees  pars e-pa rent -edges }  (terpri ) 

( output -rule-trees  parse-parent-edges ) ) ) 

(t 

(let*  ( ( edges-with-bindings  ( f ind-f eature-parses  *input*  *chart*)) 
(edges  (mapcar  'car  edges-with-bindings))) 
(output-parses-features  edges-with-bindings)  (terpri) 
(output-rules  edges)  (terpri) 

(output-treee -features  edges-with-bindings)  (terpri) 
(output-rule-trees  edges))) 

) 

) 

((eq  command  's)  (terpri) 

(save  (rule-tree-list  (mapcar  'car  ( f ind-f eatur e-pa rses  's  *chart*)))) 

) 

((eq  command  'h)  (terpri) 

(princ  "Type  first  character  (LOWER  CASE)  of  item  and  optional  number")  (terpri) 
(princ  "Examples:  Type  'c'  to  look  at  the  Chart”)  (terpri) 

(princ  "  Type  'e5'  to  look  at  Edge  5  in  the  Chart")  (terpri)) 

((not  (eq  command  'q))  (terpri) 

(princ  "***  Illegal  command  --  Type  h  for  help") 

( terpri )  ) 

) 

(cond  ((not  (eq  command  'q))  (my-debug)))  ;  continue  if  not  quit 

) 

) 

(define  (itemeend  item  end) 

( cond 

( ( null  end )  nil) 

((null  (cdr  end))  (item-fendl  item  (car  end))) 

(t  (implode  (reverse 

(cons  (car  end) 

(reverse  (explode  (itemeend  item  (cdr  end))))))) 

) 

) 

) 
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(d«fin«  (it«»-f«nd2  its*  •nd) 

<iBplod«  (r*v«r8e 
(cons  •nd 

(r«v«rs4  (•xplod#  it**)))))) 

(d«fin»  (s«v«  •xpr) 

(prog  ( out ) 

(■sg  N  "Outfil*:  "  ) 

(s*tg  out  (outfil*  (r«Bd))) 

(pp-fora  oxpr  out) 

( clos*  out ) 

(iBsg  “It**  storod"  N) 

) 

) 


k 

I 

k 

f 


t 
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FUNCTION:  Dictionary  Macro  dafinitions  (syntax,  sanantics,  ate.) 
PURPOSE:  To  parforn  cartain  basic  oparations  quickly. 

INPUT:  Varya,  but  ganarally  soaa  typa  of  list. 

OUTPUT:  Sona  nanbar  of  tha  givan  Hat  or  a  valua  such  as  t  or  nil. 


;  dictionary  accass  functions: 

;  a  dascription  is  of  tha  fora:  (  <syntax>  <sonantics>  < raali ea t ion > ) 

;  whara  <8yntax>  a  <catagory  faaturas*> 

;  <saaantics>  »  lanbda  axprassion  of  aaaning 

< raaliBation>  >  surfaca  axprassion  of  laxical  antry 

(dafun  syntax  macro  (dascription)  '(head  ,(args  dascription))) 

(dafun  sanantics  macro  (dascription)  '(first  (tail  ,(argB  dascription)))) 

(dafun  raalisation  macro  (dascription)  '(first  (tail  (tall  ,(args  dascription))))) 

(dafun  word-typa  macro  (dascription)  '(first  (syntax  ,(args  dascription)))) 

(dafun  word-typa-catagory  macro  (dascription)  ' ( sacond  (syntax  ,(args  dascription)))) 
(dafun  varb-typa  macro  (dascription)  '(sacond  (syntax  ,(args  dascription)))} 

(dafun  varb-count  macro  (dascription)  '(third  (syntax  ,(args  dascription)))) 

(dafun  varb-tansa  macro  (dascription)  '(fourth  (syntax  ,(args  dascription)))) 

(dafun  varb-parson  macro  (dascription)  '(fifth  (syntax  ,(args  dascription)))) 

(dafun  varb-ing  macro  (dascription)  '(sixth  (syntax  ,(args  dascription)))) 

(dafun  noun-typa  macro  (dascription)  '(sacond  (syntax  ,(args  dascription)})) 

(dafun  noun-count  macro  (dascription)  '(third  (syntax  ,(args  dascription)))) 

(dafun  noun-gandar  macro  (dascription)  '(fourth  (syntax  ,(args  dascription)))) 

(dafun  adj-typa  macro  (dascription)  '(sacond  (syntax  ,(args  dascription)))) 

;  Dictionary  pradicatas 

(dafun  wo rd-typa-catago ry-p  macro  (dascription) 

'(aq  ,(arg8  dascription)  (word-typa-catagory  ,(args  (tail  dascription))))) 

(dafun  varbp  macro  (dascription)  (aq  'varb  (word-typa  ,(arg8  dascription)))) 

(dafun  nounp  macro  (dascription)  '(aq  'noun  (word-typa  .(args  dascription)))) 

(dafun  adjp  macro  (dascription)  '(aq  'adjactiva  (word-typa  ,(args  dascription)))) 
(dafun  namap  macro  (dascription)  '(aq  'propar-noun  (word-typa  ,(atgs  dascription)))) 
(dafun  count?  macro  (dascription)  '(aq  'count  (noun-typa  ,(arg8  description)))) 

Grammar  Rula  Macros 

(dafun  rula-nama  macro  (ruladascr)  '(first  ,(args  ruladascr})) 

(defun  rule-syntax  macro  (ruladascr)  '(second  ,(arg8  ruladascr})) 

(dafun  rula-samantics  macro  (ruladascr)  '(third  ,(args  ruladascr))) 


i 
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MODULE:  MAKE  DICTIONARY 

PURPOSE:  Routines  to  faciiltato  the  creation  and  access  ot  dictionary. 


FUNCTION:  aake-plural 

PURPOSE:  To  use  explode  to  Bake  a  word  plural. 


(define  (aake-plural  word) 

(implode  (reverse  (append  '(:  s)  (reverse  (explode  word))))) 

) 


FUNCTION:  ay-delete 

PURPOSE:  To  delete  a  pattern  from  a  given  list. 


(define  (my-delete  pattern  list) 

( cond 

((null  list)  nil) 

((equal  pattern  (car  list)) 

(my-delete  pattern  <cdr  list)) 

) 

( t  ( cons  (car  list) 

(my-delete  pattern  (cdr  list)) 

) 

) 


first  t  pattern? 
skip  over  it,  cecurse  on  tall 

otherwise  keep  the  first  and 
delete  pattern  from  tail 


) 


FUNCTION:  delete-duplicates 

PURPOSE;  To  delete  the  duplicates  within  a  list. 


(define  (delete-duplicates  list) 

( cond 

((null  list)  list) 

(t  (cons  (car  list) 

(delete-duplicates  (my-delete  (car  list)  list)) 

) 

) 

) 

) 


FUNCTION:  a-list 

PURPOSE:  To  return  the  association  property  list  of  word. 


(define  (a-list  word)  (get  word  'a-list)) 


NB; 

I  use  *  surrounding  a  symbol  to  distinguish  it  as  a  global  vj 


(define  (dictionary  property)  (get  ' *dictionary*  property)) 


***************************** 


FUNCTION :  dictionary-words 

PURPOSE:  To  return  a  list  of  current  dictionary  words  by  recurslng 

on  the  list  of  lexical  categories  in  the  dictionary. 
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(da fin*  (diet ionary- words  laxical-catagorias) 

( cond 

((null  laxical-catagorias )  nil) 

(t  (appand  (dictionary  (car  laxical-catagorias ) )  ;  list  of  naxt  lex  cat 

(dictionary-words  (edr  laxical-catagorias ) )  ;  racursa 

) 


FUNCTION:  wo r ds- in-di c t i ona ry 

PURPOSE:  To  raturn  a  single  entry  list  of  dictionary  words. 


(define  ( wo rds- in-di ct i one ry } 

( delete-duplicates  (dictionary- words  ( dictionary  'lexical-categories) ) ) 

) 


Set  up  dictionary  as  association  lists  which  are  stored  as  property 
lists  for  each  entry.  As  each  word  is  added  to  the  dictionary,  a-lists 
are  built  accordingly. 


FUNCTION :  make-new-lexical-category 

PURPOSE:  checks  if  the  given  category  already  exists  in  the  dictionary, 

if  exists  already?  -->  do  nothing,  return  t 
else  add  it  to  the  lexicon. 


(define  ( »a ke-ne w- 1  ex i ca 1 -ca t ego ry  category) 

( cond 

(leembec  category  (dictionary  'lexical-categories))  t) 

(t  (putprop  '“dictionary* 

(cons  category  (dictionary  'lexical-categories)) 
'lexical-categories 


) 


) 


a  1  ready  7 
else  add 
it  in 


FUNCTION : 
PURPOSE : 


make-new-verb-category 

checks  if  the  given  verb  category  already  exists  in  the 
dictions  ry . 

if  exists  already?  -->  do  nothing,  return  t 
else  -  add  it  to  the  lexicon 

-  check  if  the  category  “verb"  is  in  "lexical-categories" 


(define  (make-new-verb-category  verb-category) 

(  cond 

((member  verb-category  (dictionary  'verb-categories))  t)  ;  already  member? 
(t  (putprop  '“dictionary*  ;  no  ->  add  in 

(cons  verb-category  (dictionary  'verb-categories)) 
'verb-categories) 

(cond  ;  already  verb? 

((member  'verb  (dictionary  'lexical-categories))  t) 

(t  (putprop  ;  no  ->  add  in 

'  “dictionary* 

(cons  'verb  (dictionary  '  lexical-categories ) ) 

'  lexical-categories ) 

) 


A 


3 
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PURCTION  :  «dd-wo  rd-to-> lexica l-cBt •gory 

PURPOSE:  To  add  a  givon  word  to  th*  loxical  catagory  providad. 


(dofino  (  add-wo  r  d-t  o- l«x  i  ca  l*>ca  t  ago  ry  word  catagory) 

; ***»#*»*««» I* »*«««»»*#>»»»«* tiffitifitftft 

(  cond 

Miianibac  word  (dictionary  cat»goxy>)  t)  ;  don't  add  axisting  word 
(t  (putprop  ' *dictionary *  ;  otharwisa  add  it  to 

(cons  word  (dictionary  catagory))  ;  tha  catagory 
catagory 

) 

) 

) 

) 


FUNCTION:  updata-word-a-list 

PURPOSE:  Updatas  tha  association  proparty  list  for  tha  given  word  by 

adding  tha  providad  dascription  to  tha  List  of  currant 
dascriptions . 


(dafina  ( upda ta-wo r d-a-L i s t  word  dascription) 

(cond  ((null  (a-list  word)) 

(putprop  word  (list  dascription)  'a-llst) 

) 


if  word  is  new 
craata  a-list  for  word 

if  word  already  hara 


((mamber  description  (a-list  word)) 

( tal 1-usa  r 

’(The  word  ,word  already  exists  in  the  dictionary)  1  2) 

)  ;  say  so 

(t  (putprop  word  ;  otherwise  add  new  dascr 

(append  (list  dascription)  (a-list  word)) 

'a-list 

)  ;  of  word  to  tha  a-list 

) 


FUNCTION:  maka-dict iona ry-ant ry 

PURPOSE:  To  make  a  dictionary  entry  from  tha  given  list.  List  is  in 

tha  following  form: 


(  <word-nama>  ((  <syntax>  )  (  <samantics>  )  < r aa 1 i za t ion >  )  ) 


(dafina  (maka-dictionary-antry  list) 

(let*  ((word  (head  list)) 

(dascription  (tail  list)) 

(syntax  (first  description)) 

(catagory  (first  syntax))) 

(cond 

((•q  catagory  'verb) 

(maka-naw-verb-catagory  (second  syntax)) 

) 

(t  ( maka-naw-lax ica 1-catago ry  category)) 

) 

( a dd- wo rd-to- lexical -catagory  word  catagory) 

(updata-word-a-list  word  dascription) 

) 


tha  word  is  tha  first  item 
tha  and  is  tha  tail 
tha  syntax  is  first  of  end 
tha  catagory  is  first  of  syntax 

is  it  a  verb? 
keep  its  verb  type 

add  lex  cat  if  non-axistant 

add  word  if  new 

update  tha  a-list  of  word 


» 

dictionary  selectors,  mutators,  and  displayars.  I 

I 


FUNCTION:  p r a t ty-p r i nt -a- 1 i s t 

PURPOSE;  To  print  a  gorgeous  looking  association  list  for  word. 
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(define  I pret ty-pr int-a-1 i s t  word) 

y  (eval  '  ( pp  ,(cons  word  (e-list  word))))  ;  pp  word  with  assoc  list 

) 


FUNCTION:  entry-exists 

PURPOSE:  To  return  t  if  an  item  has  an  e-list,  nil  otherwise. 


(define  (entry-exists  item) 

(cond  ((null  (a-list  item))  nil)  ;  return  nil  if  no  entry 

( t  t )  ;  t  otherwise 

) 

) 


FUNCTION:  find-entries 

PURPOSE:  To  show  the  word  indicated. 

*******************•********•***••*****•••*•*•*••***••••«*«•••*••••**•«***• 


(define  (find-entries  item)  (show-word  item)) 


FUNCTION; 
PURPOSE : 
INPUT; 
OUTPUT : 


Show-word  • 
To  print  out  nicely  the  word  or  to  say  that  it  does  not  exists  * 
a  word  * 
pret ty-pr in t-a-1 i s t  if  word  exists  or  error  message  * 


(define  (show-word  word) 

(cond  ((entry-exists  word) 
(pretty- princ-a-list 
( t 

(tell-uaer  (appendl 

) 

) 

) 


if  there  is  an  entry  return 
word))  .•  then  show  user  a  friendly  list 
;  otherwise  say  you  can't  find  it 
'(There  is  no  dictionary  entry  for)  word)  1  1) 


FUNCTION ; 
PURPOSE ; 


INPUT : 
OUTPUT ; 


lex-cat-in-a-list 

To  test  if  a  given  a-list  for  some  word  contains  a  description 
of  given  lexical  catevory  (ie  return  T  if  a  word  is  of  given 
lexical  type ) . 

a  lexical  category  and  the  a-iist  for  some  word 
t  or  nil 


(define  (lex-cat-in-a-list?  category  a-list) 

(cond  ((null  (car  a-list))  nil)  ;  empty  head  a-list  -->  no  cat  in  a-list 

((eq  (caaar  a-list)  category)  t)  ;  next  item  in  category?  -->  t 

(t  I lex-cat-in-a-list?  category  (cdr  a-list)))  ;  otherwise  examine  tail 


) 


FUNCTION : 
PURPOSE ; 
INPUT: 
OUTPUT ; 


i  s-a 

To  test  if  a  given  word  is  an  example  of  type  category, 
a  lexical  category  and  a  word 
t  or  nil 


(define  (is-a  category  word) 

;#*9»***»*»»*9*»»»»»**»9*»»* 

( cond 

((is-a-category  category) 

(lex-cat-in-a-list?  category  (a-list  word)) 

) 

( (verb?  category ) 

(is-of-type  category  (a-list  word)) 


category  known? 

check  a-list  of  word 
otherwise  not  known 
verb? 

check  a-list 


) 

(t  (tell-usar  '(, category  is  not  a  know  lexical  category  1  1)M 


A 


( 
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FUNCTION : 
PURPOSE : 
INPUT : 
OUTPUT : 


is-«-noun 

To  determine  if  a  given  symbol  is 
a  word  (atoRil 
t  or  nil 


noun  in  the  dictionary 


(define  (is-a-noun  word) 

( 1 ex-ca t-i n-a- 1  i s t ?  'noun  (a-list  word)) 


is  the  lexical  category 
noun  in  the  a-list? 


FUNCTION :  is-a-verb 
PURPOSE:  To  determine  if 

INPUT:  a  word  (atom) 

OUTPUT:  t  or  nil 


a  given  symbol  is  a  verb  in  the  dictionary 


(define  (is-a-verb  word) 

( 1  ex -cat-in-a - 1  i  s t ?  'verb  (a-list  word)) 

) 


is  the  lexical  category 
verb  in  the  a-list? 


FUNCTION:  list-dictionary-words 

PURPOSE:  To  list  the  dictionary  descriptions  of  a  given  list  of  words. 

INPUT:  list  of  words 

OUTPUT:  Dictionary  description  of  each  word  in  word  list  or  appropriate 

message  if  a  word  in  the  list  in  not  in  the  dictionary. 


(define  (list-dictionary-words  wordlist) 

(cond  ((null  wordlist)  nil)  .*  stop  if  no  more  words 

((null  (a-list  (car  wordlist)))  ;  if  no  next  word  say 

(tell-usec 

fappendl  '(There  is  no  dictionary  entry  for)  (car  wordlist))  1  1) 


) 

( t 


(  e  V  a  1 
(  list- 


’  ( pp  .  ( cons  (car 

dictionary -words 


;  list  next  word  with 
wordlist)  (a-list  (car  wordlist))))) 
(cdr  wordlist))  ;  recurse  on  tail 


► 


FUNCTION : 
PURPOSE : 
INPUT: 
OLfTPUT  ; 


list-dictionary-woids-short 

To  list  the  words  in  a  given  list  of  words, 
list  of  words 
the  list  of  words 


(define  (list-dictionary-words-shoct  wordlist) 

(cond  ((null  wordlist)  nil)  ;  no  more  words  stop 

(t  (msg  (car  wordlist)  N)  ;  oth'^rwir-e  show  first 

( 1 i s t -di c t iona r y-wor ds-shor t  (cdr  wordlist))  ;  recurse  on  tail 

) 

) 

) 


1 


FUNCTION 
PURPOSE : 

INPUT : 
OUTPUT : 


filter-a-list 

To  retvirn  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word  and  are  of  given  lexical  category 
a  lexical  category  anu  asso(,iation  list  of  a  word 
Dictionaiy  description  of  each  entry  in  a-list  which  belongs 
to  the  given  lexical  category. 


(define 


(filter-a-list  category  a-Iist 
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(cond  ((null  a-list)  nil)  ;  no  more  words  -->  stop 

((•q  (word-type  (head  a-llst))  category)  ;  if  next  descr  in  category  ->  keep 
( append 

(list  (head  a-list)) 

( f 1 1 t er-a-1 i 8 t  category  (tail  a-llst))) 

) 

(t  ( f i 1 ter-a- 1 ist  category  (tail  a-list)))  ;  otherwise  check  tail  (recurse) 

) 

) 


FUNCTION: 
PURPOSE : 

INPUT : 
OUTPUT : 


list-category-descciptions-only 

To  print  all  the  dictionary  descriptions  of  lexical  type 
category  which  appear  in  the  a-list  for  each  word  in  wordlist 
a  lexical  category  and  a  list  of  words 

All  the  dictionary  descriptions  for  each  word  in  wordlist 
which  belongs  to  the  given  lexical  category. 


(define  (list-category-descriptione-only  category  wordlist ) 

(cond  ((null  wordlist)  nil)  ;  no  more  words  -->  stop 

(t  (eval  Mpp  .(cons  (car  wordlist) 

( f i 1 t e r-a- 1 i st  category  (a-list  (car  wordlist)))  )  ));  first 

( 1 i s t-ca t ego ry-desc r ipt ions-only  category  (cdr  wordlist))  ;  recurse  on  tail 

) 

) 

) 


.•********•***********••*•**•*•*•**••*•*••>*••*•*••**•*•••**»•***•«*•*****•**« 

* 

FUNCTION:  1 i 8 t-lexica 1-ca t ego r ies  * 

;  PURPOSE:  To  print  a  list  of  the  lexical  categories  along  with  the  words  * 

:  which  belong  to  each  category  and  thaic  cor rasponding  * 

dictionary  descriptions.  * 

INPUT:  a  list  of  lexical  categories  * 

;  OUTPUT:  Printout  of  dictionary  descriptions  for  each  word  in  • 

;  dictionary,  listed  by  lexical  category.  * 

* 

•********»*******•*****•*•*•****••••**•**••****••*•***•****•**«********•**•*• 

(define  ( list-lexical-categories  categorylist ) 

(cond  ((null  categorylist)  nil)  ;  no  more  words  — >  stop 

( t  ;  otherwise 

(tell-user  (list  (make-plural  (car  categorylist)))  1  1)  ;  show  category 

( 1 i 8 t -ca tego ry-descr ipt ions-ooly  (car  categorylist ) 

(dictionary  (car  categorylist)) 

I 

( 1 i st-lex ica 1 -categor 1 es  (cdr  categorylist))  ;  recurse  on  tail 

) 

) 

) 


FUNCTION:  list-lexica l-categories-short 


PURPOSE : 


INPUT i 
OUTPUT : 


To  print  a  list  of  the  lexical  categories  along  with  the  words 
which  belong  to  each  category 
a  list  of  lexical  categories 

Printout  of  each  word  in  dictionary,  listed  by  lex  category. 


. 


St 


(define  ( list-lexical-categocies-short  categorylist  ) 

(cond  ((null  categorylist)  nil)  .*  no  more  words  stop 

{ t 

(tell-user  (list  (make-plural  (car  categorylist)))  1  1)  :  print  lex  cat 

( I i s t-di c t iona ry-wor ds-shor t  (dictionary  (car  categorylist)))  ;  otherwise  show  f 

( list-lexical-categories-short  (cdr  categorylist)}  ;  recurse  on  tail 

) 


) 


) 


FUNCTION:  show-dictionary-formats 

PURPOSE;  To  display  the  various  formats  available  for  show-dictionary. 


(define  (show-dictionary-formats) 
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(tall>u6ar 

(tall>usar 

<  tall-usat 
( tall-usar 

<  tall-usar 
( tall-usar 
I  tall-usar 


(Options  for  Print  Dictionary  Coaaand:)  2  1) 


-  Sinpla  or  short  list  of  alphabatisad  words)  1  0 

-  All  inforaation  for  words  in  aphabatical  ordar) 

-  Laxically  ordarad  list  of  words)  105) 

(ia  nouns  -  varbs  -  datarainars  ate))  109) 


(c  -  Coaplata  word  dascriptions  by  laxical  catagoryl  105) 
(7  -  Dascriba  tha  show  dictionary  foraats)  105) 


FUNCTION :  show-diet  ionary 

PURPOSE:  To  print  out  a  pratty  list  of  dictionary  antrias,  possibly 

with  thair  descriptions,  in  tha  ordar  tha  usar  dasiras  aost. 
INPUT:  an  optional  fornat  argument 

OUTPUT:  Printout  of  dictionary  words.  Tha  exact  format  of  output  is 

datarainad  by  tha  option  chosen.  If  no  option  is  provided, 
tha  output  defaults  to  a  simple  list  of  dictionary  words. 

OPTIONS : 

s  —  Simple  or  Short  list  of  alphabatisad  words 
a  —  All  information  for  words  in  aphabatical  ordar 
1  —  Laxically  ordered  list  of  words 

(ia  nouns,  verbs,  datarminars,  ate) 
c  —  Complete  word  dascriptions  by  laxical  category 
?  —  Describe  tha  show  dictionary  formats 

nil  option  will  default  to  's  and  incorrect  option  will  hiccup 


(define  (show-dictionary  ^optional  format) 

( cond 

( (eg  format  ' 7  ) 

(show-dtetionary-formata)  ;  describe 

) 

((not  (member  format  '(s  ale?  nil)))  ; 

(tail-user  '(***  .format  is  not  a  valid  option)  1  1) 
(show-dictionary-formats) 

) 

((null  { wo r ds - in-dic t iona ry )  )  ; 

( blank  2  ) 

Iprinc  "***  Thera  are  no  currant  dictionary  entries.") 
(blank  2) 


formats 

invalid  format? 

— >  hiccup 
describe  formats 

no  dictionary? 

-->  complain 


) 

(t  ;  else  show  it  by  format 

(tall-usar  '(The  currant  dictionary  words  include:  }  1  2  5) 

( cond 

((or  ( aq  format  's)  (equal  format  nil))  :  usar  wants  Short  format? 

(list-dictionary-words-short 
(words-in-dictionary) ) 

) 

( ( aq  format  'a)  ;  user  wants  All  format? 

( list-dictionary-words 
(words-in-dictionary)  ) 


( ( aq  format  'I)  ;  usar  wants  lexicon  long? 

(list-laxical-catagories 

(dictionary  ' laxical-catagorias  )  ) 


((aq  format  'c) 

( list-laxical-catagorias-short 

(dictionary  'laxical-catagorias)  ) 

) 

) 

) 

) 

) 


short  lexicon  listing? 


close  format  cond 
close  otherwise 
close  cond 
and  show-diet  ionary 


FUNCTION : 
PURPOSE : 
INPUT : 
OUTPUT : 


is-a-catagory 

to  tall  if  a  given  symbol  is  a  laxical  category 
symbol  (potentially  a  laxical  category) 
t  or  nil 


(define  ( is-a-category  item) 

(cond 

((member  item  (dictionary  'lexical-categories)))  regular  lexical  category 
((verb?  item))  ;  else  a  type  of  verb? 
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(d*fln«  (verb?  category) 

(cond  ((menber  category  (dictionary  'verb-categories)))) 

) 


FUNCTION : 
PURPOSE : 

INPUT : 
OUTPUT: 


■y-randoB 

to  use  the  randoa  nunber  generator  (which  is  not  so  random) 
to  produce  a  (relatively)  more  random  number  in  given  range 
range  maximum 

random  number  between  0  (not  inclusive)  and  given  maximum 


(define  (my-random  n) 

(addl  (quotient  (random  (times  100  n))  1001) 

) 


FUNCTION: 
PURPOSE : 
INPUT; 
OUTPUT : 


find- examp le-of 

To  randomly  choose  a  word  within  some  lexical  category 
lexical  category 

Error  message  if  category  non-exlstant  or  randomly  selected 
word  from  within  given  lexical  category. 


(define  (find-example-of  category) 

( cond 

((not  ( is-a-category  category))  ;  not  a  category? 

(tell-user  ;  -->  complain 

'{There  are  no  words  of  the  lexical  category  .category 
in  the  dictionary)  1  1) 

) 

({verb?  category) 

( pick- random-e lement- f r om  (filter-type  (dictionary  ’verb)  category)) 

)  ;  restrict  tha  type  if  need  be 

(t  (pick-random-element-f rom  (dictionary  category)))  ;  pick  random  category  word 

) 

) 


FUNCTION:  is-of-type 

PURPOSE:  Tests  the  a-list  of  a  word  to  determine  if  it  is  of  the  given 

type  within  its  lexical  category. 

INPUT:  a-list  of  a  word 

OUTPUT:  t  if  of  given  type,  nil  otherwise 


(define  (is-of-type  a-list  type) 

(  cond 

((null  a-list)  nil)  :  empty?  — >  not  of  type 

I  ( word-type-cat  ego ry-p  type  (head  a-list))  t)  ;  next  word  ok  type?  -->  t 
(t  /is-of-type  (tail  a-llst)  type))  ;  otherwise  chec)t  rest 

) 

) 


FUNCTION:  filter-type 


PURPOSE : 


INPUT; 
OUTPUT : 


To  select  only  those  words  of  a  particular  type  within  a 
list  of  words  from  a  lexical  category, 
list  of  words  in  lexical  category 

only  those  words  in  lexical  category  list,  also  of  given  type. 


(define  (filter-type  words-in-category  type) 

(cond 

((null  words-in-category )  nil) 

((is-of-type  (a-Jist  (head  words-in-category )  )  type)  ;  next  word  o):  type? 
(cons  ;  make  new  list 

(head  words-in-category)  ;  keep  first  word 

(filter-type  (tail  words-in-category)  type)  ;  filter  rest 

) 

) 


;  otharwis*  filtac  rast 
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(t  (filtar-typa  (tail  wo rds-in-ca tagory )  typa)) 

) 

) 


FUNCTION :  pick'^randoB-alanant-fron 

PURPOSE:  To  randomly  choosa  an  alaaant  from  soaa  list 

INPUT:  a  list 

OUTPUT:  A  random  alamant  of  tha  list.  Tha  function  nthalam  is 

which  raturns  tha  nth  alamant  in  lyst  starting  with  1. 
Tha  function  nth  doas  tha  sama  starting  with  0. 


usad 


(dafina  (pick-random-alamant-from  lyst) 
(nthalam  (my-random  (langth  lyst))  lyst) 

) 


FUNCTION : 
PURPOSE : 
INPUT : 
OUTPUT : 


a  r  a  8  a -wo  r  ds 

To  empty  out  all  the  currant  a-list  properties  for  words 

list  of  words 

nil 


(dafina  (arasa-words  wordlist) 

( cond 

((null  wordlist)  nil) 

(t 

(ramprop  (head  wordlist)  'a-list) 
( arasS'-words  (tail  wordlist)) 

) 

) 

) 


no  more?  — >  finished 
otherwise 
remove  a-list 
recursa  tail 


FUNCTION:  arasa-laxical-catagorias 

PURPOSE:  To  empty  out  all  the  current  lexical  category  property  lists 

INPUT:  list  of  lexical  categories 

OUTPUT:  nil 


(define  ( a r ase-1 ex ica 1-ca t egor ias  lexical-categories) 

( cond 

((null  lexical-categories)  nil)  :  no  more?  -->  finished 

( t  r  otherwise 

(erase-words  (dictionary  (head  lexical-categories)));  erase  words  in  lex  ci 
(erase-lexical'categories  (tail  laxical-catagorias));  recursa  tail 

) 


) 


) 


••***•*••«*«* 


♦  *  *  *  * 


FUNCTION : 
PURPOSE : 


INPUT : 
OUTPUT : 


arasa-dictionary 

To  erase  tha  dictionary  by  emptying  out  each  lexical  category 
property  of  *dictionary*  (ia  noun,  verb,  determiner,  etc),  as 
well  as  the  property  "lexical-category"  of  ‘dictionary*  itself, 
nil 
nil 


*••*«*••**•******•**•****« 


«****»•** 


(define  (erase-dictionary) 

(erase-lexical-categories  (dictionary  'lexical-categories)) 

(setplist  ' *di ct i ona ry *  nil)  ;  erase  plist 

)  ;  on  dictionary 
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//////////////////////////////////////////////////////////////////////////// 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 


MODULE:  DICTIONARY  LOOKUP  j 

PURPOSE:  To  provida  propar  antrias  for  providad  word  in  forsiat:  | 

<  word-root  (  <syntax>  <8a««ntics>  <raalitatlon>  )}  I 

OWNER:  copywrita  Mark  T.  Maybury.  Juna,  1987.  j 


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
///////////////////////////////////////////////////////////////// V///////// 


FUNCTION:  look-up  | 

PURPOSE:  To  search  tha  dictionary  for  an  occuranca  of  tha  given  word,  | 

returning  appropriate  antrias.  | 

INPUT:  A  word  in  "raw"  fornat  (ia  with  any  legal  suffix  or  ( 

conjugation.)  ( 

METHOD;  Tha  property  lists  are  filtered  to  assure  conpatability  with  j 

provided  features,  (ie  if  the  word  is  plural  then  change  j 

the  standard  entry  accordingly)  | 


(define  (look-up  word) 


(let  ((entries  (a-list  word))) 
(  cond 

((null  entries)  nil) 

(t  (cons  word  entries)) 

) 


) 

) 


FUNCTION:  look-up-verb  | 

PURPOSE:  To  search  the  dictionary  for  an  occuranca  of  the  given  verb,  | 

returning  appropriate  entries  with  the  word  verb  deleted  for  | 

conpatability  with  grammar.  | 


(define  ( look-up-varb  word) 

(let  ((entries  ( dalete-word-verb  (a-list  word)))) 
(cond 

((null  entries)  nil) 

(t  (cons  word  entries)} 

) 

) 

) 


FUNCTION!  delete-word-verb  | 

PURPOSE:  to  remove  the  word  verb  from  the  lexical  entry  list  to  allow  | 

for  consistency  with  grammar  features.  | 


(define  { de 1 e t e- wo r d- ve r b  a-list) 


(  cond 

((null  a-list)  nil) 

(t 

(cons 

(list  (my-delete  'verb  (syntax  (head  a-list))) 
(semantics  (head  a-list)) 

(realization  (head  a-list))) 
(delete-word-verb  (tail  a-list)) 

) 

) 

) 

) 


FUNCTION : 
PURPOSE : 


INPUT  : 
OUTPUT : 


make-verbs-past-participle  ("eat"  ->  "eaten") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word,  filtered  so  that  the  verbs  are 
past-participle. 

the  association  list  for  the  word 
The  modified  a-list 


(define  (make-verbs-past-participle  a-Iist) 
(cond 

((null  a-list)  nil) 


2 
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((•g  (word-typ«  (h*ad  a-listM  'verb) 

( append 
(list 
( appand 

( appendl 

(ny-daleta  'verb 

(subst  'past  'pres  (syntax  (head  a-list)))) 
'  en ) 

(list  (semantics  (head  a-list))) 

(list  (realisation  (head  a-list))) 

) 

) 

(jsake-verba-past-participle  (tail  a-list>) 

) 

) 

(t  ( make-ve rbs-past-pa rt icipl e  (tail  a-list))) 

) 

) 


change  only  if  verb 
attach  fixed  head  to  tail 
fix  head 


;  change  to  past-participle 

;  save  semantics 
save  realisation 


check  tail 


;  else  check  only  tail 
;  (throws  out  non  verbs) 
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MODULE:  LOOKUP 

PURPOSE:  To  provido  support  functions  for  dictionary. 


FUNCTIOM :  singular-noun? 

PURPOSE:  To  detarnina  if  a  given  description  for  soma  word  is  both 

in  the  lexical  category  noun  and  of  singular  persuasion. 
INPUT:  description  (an  element  of  some  word's  a-list) 

OUTPUT:  t  or  nil 


i 

■ 

r 

I 


(define  (singular-noun?  description) 

(and  (eq  (word-type  description)  'noun) 

(eq  (noun-count  description)  'singlp) 

) 

) 


(define  (mass-noun?  description) 

(and  (eq  (word-type  description)  'noun) 
(eq  (noun-type  description)  'mass) 

) 

) 


;  lexical  category  noun? 
;  singular? 


;  lexical  category  noun? 
;  mass  noun? 


FUNCTION : 
PURPOSE : 


INPUT : 
OUTPUT : 


3ps-verb? 

To  determine  if  the  description  is  of  a  verb  in  the  third 
person  singular  conjugation. 

description  (an  element  of  some  word’s  a-list) 
t  or  nil 


(define  (3ps-verb?  description) 

(and  (eq  (word-type  description)  'verb) 

(or  (eq  (verb-count  description)  'singlp) 
(eq  (verb-count  description)  'sing)) 

;  (eq  (verb-person  description)  'p3) 

) 

) 


lexical  category  verb? 
;  singular3p? 

;  singular? 

;  third  person? 


;«**#«***«#»»«*««*««*#«««»*»*###»«##««#*###««««•««»«««#« 

;#«»»«*«*  A-LIST  FILTERS  K « « « I • * » « » i I » I « « » « « 


FUNCTION: 
PURPOSE ; 


INPUT : 
OUTPUT : 


make-nouns-plural-and-verbs-3ps 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word,  filtered  so  that  the  nouns  are 
plural  and  the  verbs  are  third  person  singular, 
the  association  list  for  the  word 
The  modified  a-list 


(define  (make-nouns-plural-and-verbs-lps  a-list) 

( cond 

((nulla-liat)nil) 

((singular-noun?  (head  a-list))  ; 

(append 
(list 

(cons  (subst  'plur  'sing3p  (syntax  (head  a-list))); 

(list  (semantics  (head  a-list)>)  ; 

) 

) 

(ma)(e-nouns-plural-and-varb8-3ps  (tail  a-Iist )  )  ; 

) 


no  more  words  -->  stop 
next  desct  sing  noun? 
attach  fixed  head  to  tai 
fix  head 

change  to  plural 
save  rest 


chec)(  tail 


) 

((mass-noun?  (head  a-list)) 
(make-nouns-plural-and-verbs-3ps  (tail  a-list) ) 

) 

((eq  (verb-person  (head  a-list))  'pi) 

( make-nouns-plural-and-verbB-3ps  (tail  a-list)) 


;  mass  noun? 

;  drop  head,  recurse  tail 

;  first  person? 

;  drop  head,  recurse  tail 


2 
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) 

Mnot  (3ps-vorb?  (hoad  a-listM) 

( append 
( list 
(cons 

(»y-delete  'verb 
(subst  'sing3p  'plur 
(subst  'p3  'pi 
(subst  'p3  'p2 

(syntaK  (head  a-list))))  ;)) 
(list  (senantics  (head  a-list))) 

) 

) 


(make-nouns-plural-and-verbs-3p6  (tail 

) 


a-list ) ) 


) 

(t 


( append 

{ delete-wo rd-verb  (list  (head  a-list))) 

( make-nouns-plu cal-and- ve t bs-3ps  (tail  a-list) ) 

) 


) 


;  next  descr  not3ps  verb? 

;  attach  fixed  head  to  tail 


;  make  singular 
;  make  sure  person 
;  i  s  3  r  d  o  n 
;  on  head 
;  save  rest 


check  tail 


;  otherwise 

:  keep  head  as  it  is  and 

;  recurse  on  tail 


FUNCTION ! 
PURPOSE  : 


INPUT : 
OUTPUT : 


make-verbs-past-tense 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word,  filtered  so  that  the  verbs  are 
past  tense. 

the  association  list  for  the  word 
The  modified  a-llst 


(define  (make-verbs-past-tense  a-list) 

( cond 

((null  a-list)  nil) 

((eg  (word-type  (head  a-list))  'verb) 

( append 
(list 
( cons 

(my-delete  'verb 

(subst  'past  'pres  (syntax  (head  a-list)})) 
(list  (semantics  (head  a-list))) 

) 

) 

(make-verbs-past-tense  (tail  a-list)) 

) 


change  only  if  verb 
attach  fixed  head  to  tail 
fix  head 


change  to  past 
save  rest 


check  tail 


(t  (make-verbs-past-tense  (tail  a-list)))  ;  else  check  only  tai? 

) 

) 


FUNCTION : 
PURPOSE : 


INPUT ; 
OUTPUT : 


make-verbs-n*t 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word,  filtered  so  that  the  verbs  are 
n*t  which  stands  for  n't  or  negative.  (ex  don’t) 
the  association  list  for  the  word 
The  modified  a-list 


(define  ( make-verbs-n • t  a-list) 

(  cond 

((null  a-list)  nil) 

((eq  (word-type  (head  a-list))  'verb)  ;  change  only  if  verb 

(append  ;  attach  fixed  head  to  tail 

(list  ;fixhead 

(cons 

(appendl  (my-delete  'verb  (syntax  (head  a-list))) 

'n*t)  ;  syntax  +  n't 

(list  (semantics  (head  a-list)))  ;  save  rest 

) 


(make-verbs-n*t  (tail  a-list)) 

) 

) 

(t  ( mak#-ve rbs-n *t  (tail  a-list))) 

) 


;  check  tail 

;  else  check  only  tail 
;  (throws  out  non  verbs) 
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*****************«***«***«**)»***•*********•****«***•«*****•*****•«***«**«** 


rUNCTlON : 
PURPOSE : 


INPUT: 
OUTPUT : 


mak«-v«rbs-pa8t-participlo  <"*at“  ->  "aatan") 

To  raturn  tha  list  of  dictionary  dascriptions  which  appaar  in 
tha  givan  a-'list  of  sona  word,  filtarad  so  that  tha  vacbs  ara 
past-participla. 

tha  association  list  for  tha  word 
The  modified  a-list 


*********************»************«**ft*****ft«fk**»**fl* 


(define  (maka-verbs-past-participla  a-list) 

;*»««** «««««««*i#«»*«««»«««««**«»»«*«*»*l«» 

( cond 

( (null  a-list  )  nil ) 

((aq  (word-type  (head  a-list)>  'verb)  ; 

( append  ; 

(list  ; 

( cons 

( appendl 

(my-deleta  'verb 

(subst  'past  'pres  (syntax  (head  a-list)))); 
'  an ) 

(list  (semantics  (head  a-list)))  : 


change  only  if  verb 
attach  fixed  head  to  tail 
fix  head 


change  to  past-participle 
save  semantics 


( maka-varbs-past-pa r t i c i pie  (tail  a-list)) 

) 

) 

(t  ( make- ve rbs-pas t-pa r t icipl e  (tail  a-list))) 

) 

) 


•  check  tail 

;  else  check  only  tall 
;  (throws  out  non  verbs) 


ruMCTloM : 
PURPOSE : 


INPUT: 
OUTPUT : 


ma ka- va c bs - i ng  ("snore"  ->  "snoring") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
tha  givan  a-list  of  soma  word,  filtarad  so  that  tha  verbs  are 
ing . 

the  association  list  for  the  word 
The  modified  a-list 


(define  ( make-varbs-ing  a-list) 

( cond 

( (null  a-1 1 s t )  nil) 

((eq  (word-type  (head  a-list))  'verb) 

( append 
(  list 
(cons 

(appendl 

(my-delete  'verb  (syntax  (head  a-list))) 
'  1  ng  I 

(list  (semantics  (head  a-list))) 

) 

I 

( make- ve rbs-ing  (tail  a-list)) 

) 

I 

(t  { make- ve rbs-ing  (tail  a-list))) 

) 

) 


change  only  if  verb 
attach  fixed  head  to  tail 
fix  head 

add  past-participle 


save  semant ics 


check  tail 


else  check  only  tail 
(throws  out  non  verbs) 


FUNCTION: 
PURPOSE : 

INPUT : 
OUTPUT : 


make-nouns-and-names-singular-possessive 
("boy"  ->  "boy's")  ("mark"  ->  "mark's") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-llst  of  some  word,  filtered  so  that  the  nouns 
or  names  are  singular  possessive, 
the  association  list  for  the  word 
The  modified  a-list 


(define  (make-nouns-and-names-singular-possessive  a-list) 

(cond 

((null  a-list)  nil) 

({or  (eg  (word-type  (head  a-list))  'noun)  ;  change  only  if  noun 

(eq  (word-type  (head  a-list))  'proper-noun))  ;  or  name 

(append  ;  attach  fixed  head  to  tail 
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( list 

;  fix  head 

(cons 

( appendl 

;  make  new  list 

(syntax  (head  a-list)) 

;  keep  old  syntax 

'  poss  ) 

;  add  possessive 

(list  (semantics  (head  a-listi-)) 

;  save  cast 

) 

) 

;  check  tail 

( make- 

nouns-and-names-singular-possessive 

(tail  a-list ) ) 

) 

)  ;  else  check  only  tail 

(t  ( uake-nouns-and-nanes-singula r-possessi ve  (tail  a-list) } ) 

)  ;  (throws  out  non  verbs 


FUNCTION : 
PURPOSE : 


INPUT : 
OUTPUT; 


nake-nou.is-plural-possessive  ("boy"  ->  "boys'") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  some  word,  filtered  so  that  the  nouns  are 
plural  possessive. 

the  association  list  for  the  word 
The  modified  a-list 


(define  ( ma ke-nouns -pi u r a  1 - po s s e s s i va  a-listi 
(  cond 

((null  a-list)  nil) 

((eq  (word-type  (head  a-list))  'noun) 

( append 
I  list 
(  cons 

( appendl 

(subst  'plur  'sing3p  (syntax  (head  a-list 
'poss  ) 

(list  (semantics  (head  a-list))) 

) 


change  only  if  noun 
attach  fixed  head  to 
fix  head 
make  new  list 

;  make  syntax  plural 
add :  s i ng-pos  s 
save  rest 


{ make-nouns-plural-possessi ve  (tail  a-list)) 

) 

) 

(t  ( make-nouns-pl ura 1-possessi ve  (tail  a-list)>> 

) 

) 


;  check  tail 

;  else  check  only  tail 
;  (throws  out  non  verbs 


FUNCTION : 
PURPOSE : 


INPUT : 
OUTPUT : 


make-adjectives-and-nouns-edverbs  ("slow"  ->  "slowly") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 

the  given  a-list  of  some  word,  filtered  so  that  the  adjectives 

and  nouns  become  adverbs. 

the  association  list  for  the  word 

The  modified  a-list 


(define  (make-adjectives-and-nouns-adverbs  a-list) 
(  cond 

((null  a-list)  nil) 

((or 

( eq  (word-type  (head  a-list))  'adjective)  ; 
(eq  (word-type  (head  a-list))  'noun)) 

(append 

(list 

(cons  ' ( adverb )  : 

(list 
(list 


chanqe  only  if  adjective 
or  noun 

attach  fixed  head  to  tail 
fix  head 

change  syntax  to  adverb 
semantics  is  of  form 
(L  (  e)  (adverb  e)) 


'  L 


'  > 

(list  (semantics  (head  a-list))  '_») 

) 

) 


) 

) 

( ma k e-ad jectives-and- nouns -adverbs 


;  convert  semantics  to 
adverb  type 

(tail  a-list))  ;  check  tail 


) 


) 

(t  ( ma ke-ad ject i ves-and-nouns-adve rbs  (tail  a-llst)))  ;  else  check  only  tail 

) 


) 


tail 
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FUNCTION: 

PURPOSE: 


INPUT: 

OUTPUT: 


nako-acljoctivo8-coiKp«r«itivo  (for  words  lika  "slow"  ->>  "slowor*! 

To  roturn  tha  list  of  dictionary  dascriptions  which  appaar  in 

tha  glvan  a-llst  of  soua  word,  flltarad  so  that  tha  adjactivas 

bacoua  couparativa. 

tha  association  list  for  tha  word 

Tha  nodiflad  a-list 


(dafina  (naka-adjactives-conparativa  a-list) 

;«**»«*****«*»«# 

(  cond 

( (null  a>list I  nil ) 

( ( aq  (word-typa  (haad  a-list])  'adjactiva)  ; 
(appand  ; 

(list  : 

( cont> 

(subst  'comparativa  'attributiva  ; 

(syntax  (haad  a-list)))  ; 

(list  (sanantics  (haad  a-list))))  ; 

) 

( naka-ad jact i vas^conpara t i va  (tail  a-list)) 

) 

) 

(t  I maka-ad j act i va s-conpa t a t i ve  (tail  a-list))) 

) 

) 


change  only  if  adjactiva 
attach  fixed  head  to  tail 
fix  haad 

attrib  to  conpacativa 
on  syntax  list 
save  cast 

;  check  tail 


;  else  check  only  tail 


FUNCTION: 
PURPOSE ! 


INPUT; 
OUTPUT : 


mak a-a d j ac t i vas - s upa r 1 a t i va  (for  words  lika  "big"  ->  "biggest") 

To  return  tha  list  of  dictionary  descriptions  which  appear  in 

tha  given  a-list  of  sona  word,  filtered  so  that  tha  adjactivas 

become  superlative . 

tha  association  list  for  the  word 

The  modified  a-list 


(define  (make-adjectives-suparlativa  a-list) 

I  cond 

((null  a-list)  nil) 

( ( aq  (wviJ-typa  (head  a-lict*)  'adjective) 

( appsi^d 
(list 
(cons 

(subst  'superlative  'attributive 
(syntax  (head  a-list))) 

(list  (semantics  (head  a-list)))) 

) 

( make-ad ject i ves-aupe r 1  at ive  (tail  a-list)) 

) 

) 

(t  ( maka-ad ject i ves-supe r I  at ive  (tail  a-list)))  ;  else  check  only  tail 

) 


;  change  only  if  adjective 
;  allach  fixed  head  to  tail 
;  fix  head 

;  attrib  to  superlative 
r  on  syntax  list 
;  save  rest 

;  check  tail 


FUNCTION : 
PURPOSE : 


INPUT: 
OUTPUT : 


ma k e-nouns -ad j act ive s  (for  words  like  "fool"  ->  "foolish") 

To  return  the  list  of  dictionary  descriptions  which  appear  in 
the  given  a-list  of  soma  word,  filtered  so  that  tha  nouns 
become  attributive  adjectives, 
the  association  list  for  the  word 
Tha  modified  a-list 


*«***«•**«•*«**«*««****•****** 


(dafina  (make-nouns-adjactives  a-list) 

( cond 

((null  a-list)  nil) 

((eq  (word-typa  (haad  a-list))  'noun) 

( appand 
{ list 
(  cons 

'(adjective  attributive) 

(list  (semantics  (haad  a-list)))) 

) 

(maka-nouns-adjactivas  (tail  a-list) ) 

) 

I 

(t  (make-nouns-adjactives  (tail  a-list))) 

) 


change  only  if  mun 
attach  fixed  head  to  tail 
fix  haad 

new  syntax 

semantics  of  N  and  ADJ  same 
check  tail 


else  check  only  tail 


(define  ( chop-o f f -ending  word  ending) 

(  cond 

((null  ending)  word) 

( ( eq  (last-char  word)  (last-char  ending)) 

(chop-off-ending  (chop-off-last-char  word) 

(chop-off -last-char  ending) 

) 

) 

( t  nil ) 

) 

) 

(define  (count-noun  a-list) 

(  cond 

((null  a-list)  nil) 

(t  (or  (count?  (head  a-list))  ;  head  noun  of  type  count?  (macro) 

(count-noun  (tail  a-list))  ;  otherwise  recurse  on  tail 

> 

) 

) 

) 

(define  (verb-or -count-noun  a-list) 

(cond 

((null  a-list)  nil) 

(t  (or  (count?  (head  a-list)l 
(verbp  (head  a-iist)) 

(verb-or-count-noun  itail  a-list)) 

) 

) 

) 

) 

(define  ( chop-o f f-las t-cha r  word) 

( cond 

((eq  (length  (explode  word))  1)  nil)  ;  only  one  char?  -->  nil 

(t  (implode  (reverse  (cdr  (reverse  (explode  word)))))) 

) 

) 

(define  (add-char  word  char) 

( cond 

((null  word)  nil)  ;  no  word?  — >  nil 

(t  (implode  (reverse  (cons  chat  (reverse  (explode  word)))))) 

) 

) 

(define  (last-char  word)  (ultimate  (explode  word))) 


;  head  noun  of  type  count?  (macro) 
;  verb?  (uses  macro) 

;  otherwise  recurse  on  tail 


finished  ending?  -->  word 
same  last  char? 
chop  off  last  chars 
and  r ecu r s e 


;  otherwise  not  ending 


(define  (ultimate  list)  (car  (reverse  list))) 


;  first  of  reverse 
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;**««***«**»«««««**««««*«#«**«*«««4««*»«i«i*#«««t  or  first  of  last 

(dofino  (ponultiaat*  list)  (cadr  (rovorso  list)))  socond  of  ravorsa 

(dafina  ( pan-panultimata  list)  (caddr  (ravarsa  list)))  ;  third  of  ravarsa 

(dafina  ( nica-1 ist ing  word  dascrlptions ) 

(aval  ' ( pp  ,(cons  word  dascrlptions))) 


FUNCTION : 
PURPOSE: 

INPUT : 

OUTPUT : 

PROCESS : 


loo)(-up 

To  saarch  tha  dictionary  for  an  occuranca  of  the  givan  word, 
checking  appropriate  word  roots. 

A  word  in  "raw"  format  (ia  with  any  legal  suffix  or 
conjugation.  ) 

A  nice  listing  of  the  proper  dictionary  entry  is  displayed, 
or  an  appology  ia  issued. 

The  saarch  first  begins  with  known  words,  followed  by  an 
examination  guided  by  the  endings  on  words  (ia  "ing"  oi  "ad"). 
The  actual  dictionary  entries  reported  are  built  from  the 
property  lists  for  the  recognised  word  or  word-root. 

The  property  lists  are  filtered  to  assure  comparability  with 
the  word  type  recognized  <ie  If  the  word  is  plural  then  change 
the  standard  entry  accordingly) 


(define  (look-up  woid) 

;*«»«»*#»«*#«#««**«##* 

(let  ( ( f i 1 t e red-wo rd  ( f i 1 t e r e d- r oot  word))) 

(  cond 

((null  f i 1 te red-wo rd )  ;  no  entry? 

(tell-user  '(1  am  sorry  but  I  do  not  know  the  word  .word)  2  2)  :  complain 

) 

(t  ( nice- I i 8 t ing  word  f i 1 te red-word ) )  ;  else  show 

) 

) 

) 


FUNCTION:  look -up- word 

PURPOSE:  To  search  the  dictionary  for  an  occurance  Ob  the  given  word, 

chec)i(ing  appropriate  word  toots.  A  simple  version  of  look-up. 
Returns  only  a  legal  a-list  or  the  given  word. 


(define  (look-up-word  word) 

(let  ( ( f i 1 te red- wo rd  ( fi 1 te red- root  word))) 

(cond 

((null  f i 1 te red-wo rd )  ;  no  entry? 

(tell-user  MI  am  sorry  but  I  do  not  know  the  word  .word)  2  2)  complain 

) 

(t  f i 1 t e red-wo rd )  ;  a-list 

) 


;  FUNCTION:  is-a-word 

;  PURPOSE:  To  search  the  dictionary  for  an  occurance  of  the  given  word, 

»  ;  checking  appropriate  word  roots  A  predicate  version  of  lookup 


«»-A197  330  A 


UlACUSSiriED 


A  KPORT  SCOnAIOR  UOLUHE  2(U>  AIR  FORCE 
OR  N  I  NAvniRy  im 


IHSI  or  TECH  2/2 


(s«tq  *vow«l*  '(a  •  i  o  u  y)) 
(s«tq  ‘liquid*  '(1  r  s  v  *)) 
(8«tq  *no«nd»  Me  g  s  v  a)) 


(define 
( d«f in* 
( d«f in* 
( d*f in* 
( d*f in* 
( d*f in* 
( d*f in* 
(  d*f  in* 
( d*f  in* 
( d*f in* 
<  d*f  in* 
( d*f in* 


{n*t-*nding?  word)  (word-has-*nding7  word  'n*t)) 

(‘S’-onding?  word)  (word-h*8-*nding7  word  **8)) 

{  *-*ndlng7  word)  (  wo  rd-h*s-*ndlr 'i?  word  '*)) 
{8-*nding7  word)  <  word'-ha8-*nding7  word  's)) 
<ly~*nding?  word)  (word-ha8>*nding7  word  'ly)) 

(ing-*ndlng7  word)  < word-has-*nding7  word  'ing)) 

(*d-*nding7  word)  (word>ha8-*nding7  word  'od)) 

(*n>*nding?  word)  (word-h*8-*nding7  word  '*n)) 

(*r-*nding?  word)  ( wo rd-ha8-*nding7  word  '*r)) 

(*st-*nding?  word)  ( word-has>*nding7  word  '*st)) 

(ish-*nding?  word)  ( word-has-*nding7  word  'ish)) 

(iz*-*ndlng7  word)  (word-ha8-*nding7  word  'iz*)) 


(d*fin*  (*xi8ts?  word)  (not  (null  (a-list  word)))} 


t  if  oxists,  *l8*  nil 


(d*fin*  (find  word  anding) 

I  cond 

((a-list  word)  (list  word  onding  (a-list  word))) 
(t  nil ) 

) 


) 

( d*f  in* 
( d*f in* 
( d*f in* 
( d*f in* 
( d«f in* 
( d*f in* 


(1st  word ) 
(2nd  word) 
(3rd  word) 
( Ist?  word 
( 2nd?  word 
( 3  rd?  word 


(last-char  word)) 

(l8t  (chop-off-last-char  word))) 
(2nd  ( chop-of f-1 ast-cha t  word))) 
char)  («q  (1st  word)  char)) 

char)  {«q  (2nd  word)  char)) 

char)  (aq  (3rd  word)  char)) 


attanpts  to  find  word 

axists  -->  raturn  all 
als*  fail 


last  cha  r 

2nd  from  last  char 
3rd  from  last  char 
last  lottar  «  char? 

2nd  to  last  lattar  «  char? 
3rd  to  last  lattar  «  char? 


FUNCTION:  add 

PURPOSE:  To  add  ov  concatanat*  a  giv*n  ending  to  a  word. 


(dafina  (add  word  anding) 

( cond 

( (null  word)  nil ) 

((null  ending)  nil)  ; 

(implode  (append  (explode  word)  (explode  ending)))); 

) 

) 


no  word  ->  don't  add 
no  ending  - >  nil 
otherwise  add  it  on 


FUNCTION:  root 

PURPOSE:  To  detereiin*  th*  word  type  and  raturn  the  root  of  the  word, 

avantually  to  return  th*  filtered  a-list  of  the  word! 

Central  ideas  from  "Procedures  as  a  Representation  for  Data  in  a 
Computer  Program  for  Understanding  Natural  Language,"  Terry  winograd, 
Ph.  D.  dissertation,  MIT,  February  1971.  Cambridge,  Massachusetas 
02139.  MIT  Project  MAC  TR-84. 


(define  (root  word) 

(  cond 

( ( a-1 ist  word ) ) 

( (n*t-*nding7  word) 

(find  (chop-off-ending  word  'n*t)  ’n*t) 

) 

( (*8-ending?  word) 

(find  (chop-off-ending  word  '"s)  '*s) 

) 

((‘-ending?  word) 

(s-root  (chop-off-ending  word  's*)) 

) 

((s-ending?  word) 

(s-root  (chop-off-ending  word  's)) 

) 

((ly-ending?  word) 

(ly-root  (chop-off-ending  word  'ly)) 

) 

*  ( ( ing-ending?  word)  (vowel-root  (chop-off-ending 

((*d-ending?  word) 

(vowel-root  (chop-off-ending  word  'ed))) 
((en-*nding?  word)  (vowel-root  (chop-off-ending 
((er-*nding?  word)  (vowel-root  (chop-off-ending 


;  word  stored  verbatim? 
;  don*t 

;  loo)<  for  it 

;  M*rk*s 
;  look  for  it 

;  boys* 

test  s-endlng 

;  lobsters 
;  test  s-ending 

;  slowly 

;  find  noun.adj  ->  verb 
;  test  ly-ending 

word  'ing)))  ;  blinking 

;  started 

word  'an)))  ;  shaken 

word  '  e  r  )  )  )  faster 


2 
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( ( ost-Anding?  word)  (vowal-coot  ( chop-of f-anding  word  'ast)))  ;  tallest 

( ( ish-anding?  word)  ;  sheepish  noun  ->  adj 

(find  ( chop-o f f -ending  word  'iah)  *ish) 

) 

(t  ;  otherwise  express  confusion 

(tail-user  '(I  an  sorry  but  I  do  not  know  the  word  .word)  2  2) 

) 

) 

) 


FUNCTION:  ly-root 

PURPOSE:  To  return  the  proper  ly  ending  and  root  of  the  word,  along 

with  its  unfiltered  a-list. 

NB :  word-ly  stands  for  "word  minus  ly,"  that  is  the  word  stem  less  the 
ly  suffix  which  is  removed  prior  to  this  function  call. 


(define  (ly-root  word-ly) 


( cond 
( ( find 

(add  ( chop-of f -ending  word-ly  'i)  'v) 

•ily 

) 

) 

( t 

( cond 

((find  word-ly  'ly)) 

(t 

(find 

( add  word-ly  ' le ) 

'ly 

) 

) 

) 

) 

) 

) 

•**•*•**•*•*•••*•*•*••*•*•*«**«•*•*«••****«••«•*•**••*•**••••*•*****•**•••*• 

;  FUNCTION:  8-root 

:  PURPOSE:  To  return  the  proper  s  ending  and  root  of  the  word,  along 

;  with  its  unfiltered  a-list. 

NB:  word-s  stands  for  "word  minus  s,"  that  is  the  word  stem  less  the  s 
suffix  which  is  removed  prior  to  this  function  call. 


(happily  ->  happy) 
add  y  after  chop  ily 
"ily"  ending 
adv  -->  adj 

else  ( adv  — >  verb ) 
(slowly  ->  slow) 
try  it  and  if  not 
else 

(cuddly  ->  cuddle) 
add  le  to  ly-root 
"ly"  ending 


(define  (s-root  word-s) 

(cond 

(  ( 1 s  t  7  wo  r d- s  ' e ) 

( cond 

( ( 2nd?  word-s  ’ i  ) 

(find  (add  (chop-off-ending  word-s  'ie)  'y)  'ies) 

) 

( ( 2nd7  word-s  ' h  ) 

(cond 

((3rd?  word-s  't) 

(find  wo  r  d- s  ' s ) 


last  is  e? 

2nd  is  i ? 
chop  i e ,  add  y 
canaries  ->  canary 
2nd  is  h 

3rd  is  1 7 
clothes  ->  clothe 


(t 

(find  ( chop-of f-ending  word-s  'e)  'es) 

) 

) 

) 

( ( 2nd7  word-8  ' x ) 

(find  ( chop-of f-ending  word-s  'e)  'es) 

) 

((or  (2nd?  word-s  's)  (2nd?  word-s  ‘z)) 

( cond 

((or  (3rd?  word-s  's)  (3rd7  word-s  's)) 

^  (find  ( chop-of f-ending  word-s  'e)  'es) 

( t  ( find  wo t d-6  ' s ) ) 

) 

) 

( ( 2nd?  word-s  ' v ) 

(  cond 


else 

??hes  ->  ??h 


2nd  is  X? 
boxes  ->  box 

2nd  is  B  or  t? 

3rd  is  s  or  e? 
bosses  ->  boss 
quiEEes  ->  quit? 
buses  ->  bus? 
fuses  ->  fuse 

2nd?  is  v7 
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((find  word-6  ’»))  :  hivts  ->  hiv# 

((find  (add  ( chop-of  f-anding  word-s  'va)  'f)  'vas))  ,*  wolvas  ->  wolf 
((find  (add  (chop-off-anding  wotd-s  ’va)  ‘fa)  ‘vas));  knivas  ->  knifa 

) 

) 

(t  (find  word-8  's})  ;  alsa  look  up  s 

) 

) 

(t  (find  word-s  's))  ;  look  up  w/out  s 

) 

) 


FUNCTION:  vowal-root 

PURPOSE:  To  raturn  tha  propar  root  of  tha  givan  stan,  along  with 

with  its  unfiltarad  a-list. 


(dafina  (vowal-root  stan) 

(  cond 

((nanbar  (1st  stan)  *vowal*) 

( cond 

( ( 1st?  stan  ' i ) 

(find 

(add  (chop-off-anding  stan  'i)  'y) 

' i->y-stan) 

) 

( ( Ist?  stan  ' y 
(find  stan  'y-stan) 

) 

( (Ist?  stan  ' a ) 

( cond 

( (2nd?  stan  ' a ) 

(find  stan  'a‘^-sta«) 

) 

1 1 

( cond 

((find  stan  '?a-stan)) 

(t  (find  (add  stem  'a)  '?oa-stam)) 

) 

) 

) 

) 

(t  (find  (add  stan  'a)  '  aou-va-stam)  ) 

) 

)  ;  closa  1st  VOWEL 

((Ist?  stan  'h) 

(  cond 

((2nd7  stan  't) 

(cond 

((find  stem  'th-stam)) 

(t  (find  (add  stan  'a)  'tha-stam)) 

) 


is  last  char  vowal? 
;  yas: 

;  last  char  i? 

;  criad  ->  cry 

;  last  char  y? 

;  trying  ->  try 
;  playad  ->  play 

:  last  char  a? 

;  2nd  to  last  a? 

frae^n-  -5  iiaa 


alsa  try  and  if  not 
add  a  and  try 


;  also  add  a  and  look 


last  char  h? 
2nd  to  last  t? 

look  for  th 

alsa  add  a 


(t  (find  stan  'th-stan))  ;  alsa  add  a 

) 

) 


((aq  (1st  stan)  (2nd  stan)) 

( cond 

((nambar  (1st  stan)  *liquid*)  ; 

( cond 

((find  stan  'XX-stam))  ; 

((find  (chop-off-last-char  stam)  'XX->X-stan) )  ; 

) 

) 

(t  (find  ( chop-of f -las t-cha r  stan)  * XX->X-stan2 ) ) ; 

) 


last  B  2nd  to  last? 

last  in  ‘liquid*? 

kissing  ->  l^iss 
try  fizzing  ->  fizz 
but  quizzing  ->  quiz 


alsa  try  w/out  last 


((nanbar  (2nd  stan)  *vowal*) 

(cond 

((nanbar  (3rd  stan)  *vowal*) 

( cond 

((nanbar  (1st  stan)  *noand* ) 

(find  (add  stan  'a)  ' VVN->VVNa-8tan) ) 

((fin-T  3tam  'VVN-stan)) 

) 

) 

(t 

(cond 


ganing  ->  gsna 
liking  ->  lika 
nodifiad  fron  T.  W. 
add  a  to  tha  stan 
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((jaanbar  (1st  stan)  *liquid*) 

is  last  in  liquid? 

( cond 

(( chop-of f-anding  stan  'rl) 

if  tha  anding  is  rl 

(find  stan  'rl-stan)) 

loc*'- 

it  up 

(t  (find  (add  stan  'a)  'L-stan)) 

) 

alsa 

add  an  a 

(t 

alsa 

(cond 

((mambar  (Ist  stam)  *noand*) 

last 

char  in  noand? 

(find  (add  stan  'a)  '->a-stam2)) 

add 

an  a 

,  (t  (find  stan  'stan)) 

alsa 

look  up  plain 

((find  (add  stan  '•}  '->a'-8toaM 
((find  St**  'stooM 


likod  ->  lika 
suffarcd  ->  suffmr 


(dafina  ( add^va rb-3ps  a>list) 

(  cond 

( (null  a-list)  nil) 

(t 

(lat  ((dafn  (first  a-list))) 

(cons 

(list 

(appand  (list  (first  (syntax  dafn))  'sing3p) 
(nthcdr  3  (syntax  dafn))) 

( samant ics  daf n ) 

(raaliaatlon  dafn)) 
a-list 

) 

) 

) 


► 

I 

k 

r 


) 

(dafina  ( dalata-word-varb  a-list) 

( cond 

((null  a-list)  nil) 

(t 

( cons 

(list  (my-dalata  'varb  (syntax  (haad  a-list))) 
(samantics  (haad  a-list}) 

(raalieation  (haad  a-list)l) 

{ da  1  at a-wo r d-va rb  (tail  a-llst)) 

) 

) 

) 

) 


rUNCTlONJ  f iltarad-root 

PURPOSE:  An  Improvmant  upon  root  sinca  hara  a-lists  ara  filtarad  and 

adjustad  according  to  tba  Mophology  of  tha  input.  Thus 
adjustnants  in  word  typa ,  word  tansa,  or  word  nunbar  ara 
mada  whara  appropriata. 


(dafina  ( f i 1 ta rad- root  word) 

(  cond 

( ( dalat a-word-va rb  (a-list  word)))  ; 

( (n*t-anding?  word) 

(ma)(a-varbs-n*t 

(third  (find  ( chop-of f-anding  word  'n*t)  'n*t))); 

) 

((*8-anding?  word) 

( naka-nouns-and-naiaas-singular-possassi va 
(third  (find  ( chop-of f-anding  word  '*8)  '*8)))  ; 

) 

( ( *-anding?  word)  ; 

(maka-nouns-plural-possassiva 
(third  (8-root  ( chop-of f-anding  word  's*)))) 

) 

((8-anding?  word)  : 

(naka-nouns-plural-and-varbs-Bps 

(third  (s-root  ( chop-of f-anding  word  's)))) 


word  storad  varbatim? 
don*t 

look  for  it 
Mark*s 

singular  possassiva 
look  for  it 

boys  * 

plural  possassiva 
tast  8-anding 

lobstars 


tast  8-anding 
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) 

((ly-ending?  woLd) 

{ »ak«-*d  joct  Ivos-'and-noune-cdvorbB 
(third  (ly-root  I  chop-of  f-endln^  word  'ly)MJ 

) 

( ( ing-anding?  word) 

<iRak«-v<  bn-lng 

(third  (vowal-root  ( chop-of  f-anding  word  'iogMM 

) 


slowly 

adj  ->  advarbs 
tast  ly-anding 

;  blinking 


( (ad-anding?  word) 

( add-varb-3pe 

( naka-varbs-past-tansa  ;  past  tansa 

(third  (vowal-root  ( chop-of f-anding  word  'ad)))}) 

) 

((an~anding?  word) 

(■aka'-varbs-past-participla 


startad 


shakan 

past  participla 


(third  (vowal-root  ( chop-o f f-anding  word  'an)))) 

) 

((ac-anding?  word)  ;  fastac 

{ maka-ad jact i vas-compa r at i va  ;  comparativa  adjactiva 

(third  (vowal-root  ( chop-of f-anding  word  'ar)))) 

) 

( (aat-anding?  word)  :  tallast 

( naka-ad jacti ves-supar lat i va  ;  suparlativa  adjactiva 

(third  (vowal-root  ( chop-of f-anding  word  'ast)))) 

) 

( ( iah-anding?  word) 

(maka-nouns-adjactivas 
(third  (find  ( chop-o f f-anding  word  'ish)) 

) 

(t  nil) 


'  shaapioh  noun 
;  adjactiva 


adj 


otharwisa  axpra&s  confusion 


1 
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MODULE:  GRAMMAR  SUPPORT  POR  PBATUPES 

PURPOSE:  To  support  tho  grasaar  accassing  functions  to  allow  faatures 

in  tha  granaar . 


PUNCTtON:  latt-hand-sida-of 

PURPOSE:  To  laft  tha  right  hand  sida  of  a  giva  rula. 


(dafina  ( laft-hand-slda-of  rula)  (haad  rula)) 


FUNCTION:  right-hand-aida-of 

PURPOSE:  To  raturn  tha  right  hand  sida  of  a  giva  rula. 


(dafina  ' r ight-hand-s i da-of  rula)  (tall  rula)) 


FUNCTION :  is-a-non-tarminal 

PURPOSE:  To  datarmina  if  a  givan  symbol  in  tha  grammar  is  a  non- 

tarminal  (ia  it  is  on  tha  laft  hand  sida  of  a  grammar  ml*' 


(dafina  (is-a-non-tarminal  symbol  grammar) 

( cond 

((null  grammar)  nil) 

( ( aqua  1  symbo 1 

(first  ( laf t-hand-sida-of 
( rula-syntax  (haad  grammar)))))  t) 

(t  (is-a-non-tarminal  symbol  (tail  grammar))) 

) 

) 


finishad?  -  quit 
match? 

first  itam  Ihs 
->  succaad 
also  raeurse 


FUNCTION:  is-a-tarminal 

PURPOSE:  To  datarmina  if  tha  givan  symbol  is  a  tarminal. 


(dafina  (is-a-tarminal  symbol  grammar) 

(not  (is-a-non-tarminal  symbol  grammar)) 

) 


FUNCTION :  a-rula-to-axpand 

PURPOSE:  To  randomly  choosa  a  rula  from  all  th*  rulas  expanding  a 

symbol  in  tha  givan  grammar. 


(dafina  ( a-rula-to-axpand  symbol  grammar) 

( pick-at-random-f rom  ( a  1 1-rulas-axpanding  symbol  grammar) ) 

) 


FUNCTION:  pick-at-random-f rom 

PURPOSE:  To  pick  an  itam  randomly  from  a  givan  list. 


(dafina  (pick-at-random-f rom  list ) 

(nthalam  (my-random  (langth  list))  list) 

) 


FUNCTION:  a  1 1- r ules^expanding 

PURPOSE:  To  raturn  all  rulas  in  tha  grannar  that  axpand  glvan  syiibol 


(dafina  ( al l-rulas-axpanding  syabol  graamar) 

( cond 

((null  graaaar)  nil) 

((aqual  syabol  (first  (rula-syntax  (haad  graaaar)))) 
(cons  (haad  grannar) 

( all-rulas-axpanding  syabol  (tall  graaaar)))) 
(t  ( al 1-rul as-axpanding  syabol  (tail  graaaar))) 

) 


FUNCTION :  axpand-all-syabols 

PURPOSE:  To  convart  a  list  of  symbols  into  thair  right  hand  sida  of 

tha  rula  aquivalant  (ia  axpand  tham). 


(dafina  ( axpand-all-symbols  list  grammar) 

( cond 

((null  list)  nil) 

( ( i s-a-t9 rmina 1  (car  list)  grammar) 

( cons  (car  list) 

(axpand-all-symbols  (cdr  list)  grammar) 

) 

) 

( t  ( appand 

( right-hand-side-of 

(rul«-syntax  (  a- rula- 1 o-axpand  (car  list) 
(axpand-all-symbols  (edr  list)  grammar) 

) 

) 

) 


;  tarminal? 

;  add  it  to 

:  rasult  of  racursa 


;  alse  malce  list  of 
;  sxpansion  symbol 
grammar ) ) ) 

;  and  racursion 


FUNCTION;  gana ra t a-s #n t #nc a 

PURPOSE:  To  ganarata  a  santanca  from  tha  givan  grammar. 


(dafina  ( ganara ta-santanca  grammar) 

(print-list 

(ganarata-phrasa 

( gana r a ta-ph r asa-s t rue turas  '(s)  nil  grammar) 

) 

) 

) 


FUNCTION:  ganarata-phrasa 

PURPOSE:  To  taka  a  phrasa  structura  (list)  and  racurslvaly  find 

axamplas  of  aach  mambar  in  tha  phrasa,  consing  togethar  to 
raturn  a  list  rasult. 


(dafina  ( gana ra ta-phr asa  phrasa-s t rue tura ) 

( cond 

((null  phrasa-st ructura )  nil)  ;  no  mora  phrasas?  — >  nil 

(t  (cons  ;  otharwisa  attach  axample 

( f ind-axampla-of  (haad  phrasa-structura ) )  ;  of  haad  catagrry 
( ganarata-phrasa  (tail  phrasa-structura))  to  tail  racursa 

) 

) 

) 

) 


FUNCTION:  ganarata-phrasa-structuras 

PURPOSE:  To  ganarata  phrasa  structuras  from  a  phrasa  list  by 

axpandlng  all  symbols  in  tha  phrasa  list  until  you  can't 
axpand  anymora. 
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(d«fin«  (9«n«rat«-phr«8tt-8tructur«s  phrasa-list  l88t-tiBi8  graamAr) 

{ cond 

((•qual  phr88*-list  last-tia*}  phr8B«*-liBt ) 

(t  (>89  phrasa-list  N)  ;  if  this  includad,  prints 

(ganarata-phrasa-structuras 

(axpand-all-symbols  phcsaa-Liat  graamar)  phraaa-list  graaaar) 

) 

) 


1 
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/////////////////////////////////////////////////////////.  ////////////////// 
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I 

MODULE:  LEXICAL  CATEGORY  SEARCH  AND  MATCH  I 

PURPOSE:  To  $««rch  and  natch  catagorios  within  a  word  doscription.  | 

I 

wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww 

//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  loxlcal-cataqory 

PURPOSE:  To  datarnina  tha  laxlcal  catagory  for  a  qivan  dascriptlon. 
INPUT:  dascription  for  soaa  word 

OUTPUT:  laxical  cataqory  of  dascription 


(dafina  (laxical-catagory  dascription) 

( cond 

<(aq  (word-typa  dascription)  'varb)  ;  if  word  typa  is  varb 

(varb-typa  dascription))  ;  raturn  varb  typa 

<t  (word-typa  dascription))  ;  alsa  qiva  word  typa 

) 

) 


(dafina  (laxical-cataqory-and-sanantics  dascription) 


(cond 

((aq  (word-typa  dascription)  'varb) 
( appand 

(list  (varb-typa  dascription)) 
(sananties  dascription))) 

1 1 

( appand 

(list  (word-typa  dascription)) 
(sananties  dascription))) 

) 

) 


;  if  word  typa  is  varb 
;  raturn  varb  typa  and  sananties 


;  aisa  qiva  word  typa 


FUNCTION ! 
PURPOSE  : 
INi'Ui  : 
OUTPUT: 


all -laxical -cat aqorias 

To  conpu^a  a  list  of  all  laxical  cataqorias  in  tha  givan  a-list 
a-AiaL  foe  sona  word 

a  list  of  all  laxical  cataqorias  in  a-list  or  nil 


(dafina  (all-laxical-cataqorias  a-list) 

( cond 

((nulla-listinil)  ; 

( t  ( cons  ; 

(laxical-catagory  (haad  a-listM  ; 

(all-laxical-cataqorias  (tail  a-list)); 

) 

) 

) 

) 


no  nora  dascriptions? 
naka  a  list  of 
lex  cat  of  ’-t  der'-r  *  p  1 1  vt* 
lax  cats  of  rast  (racursa) 


(dafina  ( a  1 1-lax ica 1-cataqor i as-and-sanant ics  a-list) 

( cond 

((null  a-list)  nil)  ;  no  mora  dascriptions? 

(t  (cons  ;  naka  a  list  of 

( laxical-cataqory-and-samantics  (haad  a-list))  ;  lax  cat  of  1st  dascription 
( a  1 l-laxical-cataqor ias-and-samant ics  (tail  a-list));  lax  cats  of  rast  (racursa) 

) 


) 


FUNCTION: 
PURPOSE : 


INPUT ; 
OUTPUT: 
OPTIONS : 


laxical-cataqorias 

To  datarnina  tha  list  of  laxical  cataqorias  a  word  balongs  to. 
First  looks  up  tha  word  in  tha  dictionary,  chackinq  altarnata 
spallings  and  roots, 
a  word  in  tha  dictionary 

list  of  laxical  cataqorias  in  a-llst  or  nil 

1  —  raturn  only  list  of  laxical  cataqorias 

2  —  raturn  list  of  cataqorias  with  sananties. 


2 
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(d«fin«  < l«xicaI-cat«gori«s  word) 

(dalata-duplicatas  (all-'laxical-catagorias  (look-up- word  word))) 


(daflna  ( lax-cats-and-soBantics  word) 
(dalata-dupllcatas 

(all-laxical-catagoriaa-and-sanantics 

( look-up-word  word) ) ) 

) 


FUNCTION:  currant-word 

PURPOSE:  To  raturn  tha  laxical-catagorias  of  tha  naxt  word  in  tha  input. 


(dafina  (currant-word  santanca) 

;***«##«*•#•#§«•••»##••••«•»*•« 

(dalata-duplicatas  (laxicaL-catagorias  (haad  santanca) ) ) 

) 


FUNCTION:  rast-of 

PURPOSE:  To  raturn  tha  rest  of  tha  glvan  santanca  aftar  stripping  off 

first  word. 


(dafina  (rast-of  santanca)  (tail  santanca«i 


FUNCTION:  and-of-santanca? 

PURPOSE:  To  raturn  t  if  tha  santanca  Is  ampty.  otharwisa  nil. 


(dafina  ( and-of-santanca ?  santanca) 

(cond  ((null  santanca)  t)  ;  santanca  ampty?  -->  yes! 

it  nil)  ;  otharwisa  nil 

) 

) 


FUNCTION:  word-or-laxical-catagory? 
PURPOSE:  To  raturn  t  if  tha  itam 


word  or  laxical  catagory,  alsa  nil 


(dafina  (word-or-laxical-catagory?  itam) 

( cond 

((or  ( is-a-catagory  itam)  (is-a-word  itam))  t)  ;  t  if  laxical  cat  or  word 
(t  nil)  ;  otharwisa  nil 

) 

) 


FUNCTION:  match 

PURPOSE:  To  raturn  t  if  itaml  is  in  tha  laxical  cat  of  itam  2. 


(dafina  (match  itaml  itam2) 

(or  (aq  itaml  itam2) 

( mamba  r 
i  taml 


(all-laxical-catagorias 

) 


( a-1  is  t 


( root  ltam2 ) )  ) ; 


how  about  look-up??? 
mambar? 
itaml 

lax  cats  of  itam2 


) 
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////////////////////////////////////////////////////////////////Z/////////// 

MODULE:  COMPILE  GRAMMAR  MODULE 

PURPOSE:  To  provide  tools  to  compile  the  grenmar  prior  to  execution  to 
give  computational  efficiency.  This  allows  for  grammatical 
felicity  or  perspicuity  when  writing  rules. 


Grammar  originally  of  form: 
grammar  =»>  rule* 

rule  =s>  <  rule-name  rule-syntax  rule-semantics  > 

rule-syntax  constituent* 

constituent  =->  <  category  (feature  value)*  > 
compiling  performs: 

1.  removes  feature  so  unification  hecr’^^s  positional 

this  is  done  for  both  computational  efficiency  as  well  as 
convenience  for  use  with  dictionary. 


\\\\\^\\\\\\\ 


FUNCTION:  compile-grammar  I 

PURPOSE;  to  replace  the  global  variable  *gramr«ar*  with  the  compiled  form.) 


(define  ( comp 1 1 e -g r a mma r  grammar) 


(setq  ‘grammar*  (mapcar  ' remove-lables  ‘grammar*))) 


FUNCTION;  remove-lables  1 

PURPOSE:  to  remove  the  feature  lables  on  the  syntax  of  a  rule.  I 


(define  (remove-lables  rule) 


(  list 

( rul®-"eme  rule  ) 

(mapcar  ' r >m-f eature-lables  (rule-syntax  rule)) 
(rule-semantics  rule) 

) 

) 


PUNCllON:  rem-f eature-lables  1 

PURPOSE:  to  remove  the  feature  tables  on  a  particular  constituent.  I 


(define  (rem-f«ature-lables  constituent) 
(  cons 

(head  constituent) 

(mapcar  'cadr  (tail  constituent)) 

} 
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I 

MODULE:  PREPROCESS  I 


PURPOSE:  To  preprocess  the  grammer  to  increase  parser  efficiency. 
$Header:  preprocess . 1 , v  1.1  86/12/15  01:11:06  ntm  Exp  $ 


FUNCTION : 
PURPOSE : 

INPUT : 
OUTPUT : 


make-possible-rules 

To  associate  the  possible  rules  for  a  particular  lexical 

category . 

grammar 

Nothing  explicitly,  but  side  effect  is  possible  rules  for  cats. 


(define  ( ma k e-po s s i bl e- r ul e s  grammar  syntax-rules) 

(clear-possible-rules  grammar) 

(create -possible-rules  grammar  grammar) 

} 


FUNCTION:  c 1 ea r -pos s i b 1 e- ru 1 e s 

PURPOSE:  To  clear  the  lexical  categories  of  their  property 

"pos s ible- rules "  ,  which  may  be  dirty  from  previous  runs. 
Maps  the  function  dear-category  on  the  rhs  of  each  rule. 


(define  (clear-possible-rules  r e s t -of -gramma r ) 

( cond 

((null  r es t-of-gramma c )  nil) 

(t  (raapc  'dear-category  ;  clear 

(mapcar  'car  ;  the  first 

( right-hand-side-o£  (rule-syntax  (head  rest-of-gramma r ) ) ) } )  ;  of  items  in  rhs 

( clea c-pos s ible- rules  (tail  rest-of-grammat ) )  ;  fix  tail 

) 

) 


(define  (dear-category  symbol)  ;  don't  waste  time  checking  if  a  category 
(setplist  symbol  nil) 

) 


FUNCTION:  create-possible-rules 

PURPOSE:  To  assign  to  each  lexical  category  its  possible  rules. 

***•****•**•******•*•*********•*•****•*•****•***•*••«**•«***««•***«*•*•*••« 


(define  (create-possible-rules  grammar-rules  grammar ) 
(cond 

((null  grammar-rules)  nil) 

( t 

(make-rule-possible-for-lexical-categories 
(head  grammar-rules) 

{first2  (first  (first  ( right-hand-side-of 

( rule-syntax  (head  gramma r-rules))))); 
gramma  r 

) 

) 

(create-possible-rules  ; 

(tail  gramma  r-rules  ) 
gramma  r 

) 

) 

) 

) 


no  more  rules?  ->  quit 
else 

make  possible  for  firsts 
this  rule 

first?  of  category 
of  its  handle 


recurse  on  rest 


FUNCTION:  make-rule-pOBsible-for-lexical -categories 

PURPOSE:  To  make  the  given  rule  a  possible  rule  for  all  the  lexical 

categories  in  firsts. 


2 
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► 

I 

r 


(d«£in«  (■•k«-rul«-possible-for-l*xlcal-ciit*gori«s  rul*  firsts) 

( cond 

((null  firsts)  nil)  ;  finishad?  ->  quit 

(t  (cond  ;  ols* 

(  ( iS'>«-*cat*gory  (hoad  firsts))  ;  hoad  firsts  Isxical  category? 

( add-to-poss ible- rules  rule  (head  firsts));  then  rule  is  possible  for 

) 

) 


( nake-rule-pos 8 ible-f o r-1 exical-ocategor ies  ;  recurse  on  rest 
rule 

(tail  firsts) 


) 


) 


FUNCTION :  add-to-poss ibl e-rules 

PURPOSE:  To  add  the  give  rule  to  the  provided  category's  possible  rules. 


(define  ( add-t o-pos s ible-rul es  rule  category) 

(putprop 

category 

(cons  rule  ( po s s 1 b 1 e- r u I e s  category))  ;  cons  it  to  old  possible  rules 

'possible-rules 

) 

) 


FUNCTION:  possible-rules 

PURPOSE:  To  return  the  rules  which  a  possible  from  the  given  category. 


(define  (possible-rules  category)  (get  category  'possible-rules)) 

;  4«4«4««««l4«f 4«4l4«l«4444«««4««4«««f 

;  FUNCTION:  display-category 

;  PURPOSE:  To  display  the  possible  rules  for  this  category,  as  well  as 
:  rules  with  this  category  as  a  handle  (a  handle  is  the  first 

constituent  on  the  right  hand  side  of  a  rule). 


(define  (display-category  category) 

(blank  2) 

(print-list  M - , category - ))  (blank  2) 

(print-list  '(possible  rules  - >  , 9 ( poss ible-rules  category)))  (terpri) 

(print-list  '(rules  with  handle  ->  , 9 ( rules-wi th-handle  category))) 

(blank  2) 

) 


FUNCTION:  Fir8t2 

PURPOSE:  To  return  a  list  (containing  no  duplicates)  of: 

the  result  of  first-auxl 
•f  all  non-nil  instances  of 

first-aux2  for  the  rhs  of  all  rules  in  the  gremnar 
where  category  equals  the  Ihs  of  the  rule 

INPUT:  A  category  and  a  Graniear 

OUTPUT:  list 


(define  (firBt2  category  graimar) 

(delete-duplicates 

(append  (first-auxl  category  graniiar  nil) 

(f its t-eux2-for- Ihs -Matching- rules  category  greama r ) 

) 

) 

) 


* 
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FUNCTION :  t i r s t-aux 2- f o  r -Ihs-as t ch 1 ng- cul^a 

PURPOSE:  To  raturn  a  list  of  all  non  nil  Instancaa  of  doing: 

for  aach  rula  in  tha  graaaar  (racursa) 
if  tha  catagory  glvan  aquals  tha  lha  of  tha  rula 

than  raturn  tha  raault  of  first-auxi  on  tha  rhs  of  rula 


(dafina  ( f i rst-aux2-f or-lhs-natching-rulas  catagory  rast-of-graaaar ) 

( cond 

((null  rast-of-graaaar )  nil)  ;  flniahad?  ->  stop 

(  ( ag  c  at  ago  r y 

( laf t-hand-sida-of  (rula-syntax  (haad  rast-of -graanar ) ) ) )  ;  cat  ■  lha  rula? 
(appand  add 

(first-aux2  ;  firBt-aux2 

( right-hand-sida-of  (rula-syntax  (haad  rast-of~graaaar M )  ;  on  naxt  rula 
graaaar ) 

{ f Ir8t-aux2-f or~lhs~aatchlng'>rulas  tail  racursa 

catagory 

(tail  rast-of-graaaar) ) 

) 

)  ;alsatailtacursa 

(t  ( f i r s t-aux 2-f or-lhs-aatching- rul as  catagory  (tail  rast-of-gramaar ) ) ) 

) 

) 


FUNCTION:  first-auxl 
PURPOSE:  To  raturn: 

If  tha  catagory  is  tarainal  than  raturn  a  list  containing  tha  catagory 
otharwisa,  if  tha  catagory  has  alraady  baan  triad  tha  raturn  nil, 
otharwisa  raturn  a  list  of  all  non-nil  instanca  of  tha  following: 
chack  aach  rula  in  tha  gramaar: 

if  tha  catagory  is  agual  to  tha  laft  hand  sida  of  tha  rula 
than  if  tha  right  hand  sida  of  tha  rula  is  not  ampty 
than  raturn  tha  rasult  of 

first-auxl  of  tha  first  symbol  in  tha  rhs  of  tha  rula 
whara  you  add  tha  currant  catagory  to  alraady  triad, 
alsa  raturn  a  list  containing  tha  "ampty"  symbol 
also  raturn  nil 


(dafina  (first-auxl  catagory  grammar  alraady-triad) 

( cond 

( ( is-a-tarminal  catagory  grammar)  (list  catagory)) 
((mambar  catagory  a  1 r aady- 1 r iad )  nil) 

(t  ( f irst-auxi-lhs-matchas-catagory  catagory  grammar)) 

) 

) 


FUNCTION :  first-auxl -Ihs-matchas-catagory 

PURPOSE:  To  raturn  a  list  of  all  non  nil  instancas  of  doing: 

chack  aach  rula  in  tha  grammar: 

if  tha  catagory  is  agual  to  tha  laft  hand  sida  of  tha  rula 
than  if  tha  right  hand  sida  of  tha  rula  is  not  ampty 
than  raturn  tha  rasult  of 

first-auxl  of  tha  first  symbol  in  tha  rhs  of  tha  rula 
whara  you  add  tha  currant  catagory  to  alraady  triad, 
alsa  raturn  a  list  containing  tha  "ampty"  symbol 
alsa  raturn  nil 


(dafina  (first-auxl-lhs-matchas-catagory  catagory  rast-of-gr amma r ) 

( cond 

((null  rast-of-grammar )  nil)  ;  finishad?  ->  stop 

( (aq  catagory 

( laf t-hand-sida-of  (rula-syntax  (haad  rast-of-grammar})))  ;  cat  «  Ihs  rula? 


( cond 

((not  (null  (right-hand-sida-of 

(rula-syntax  (haad  rast-of-grammar)))))  ;  rhs  rula  not  ampty? 

( appand 

(first-auxl  first-auxl 

(first  ( right-hand-sida-of 

(rula-syntax  (haad  rast-of-gramaar))))  Ist  on  naxt  rula 


’T 
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graMtr 

(•ppandl  «lr«ady-tri«d  category)) 
(fir8t"*uxl-lhs-aatchaS'catagory 
catagory 

(tall  ras t-of -graaaa  r ) ) 

) 

) 

(t  (appand 

(list  (list  ' aapty-syabol )) 

(  first -auxl-'lhs-aatchas-catagory 
catagory 

(tall  rast-of-graaaar M 

) 

) 

) 

) 

(t  (first-auxl-lhs-aatchas-catagory 
catagory 

(tail  rast-of-graaaar > 

) 

) 

) 

) 


;  and  tail  racursa 


;  alsa  ampty-syabol 
;  and  tail  racursa 


;al6a  tail  racursa 


r UNCTION:  fir8t-aux2 

PURPOSE:  To  taka  away  soaa  coaputational  burdan  of  first. 

If  rhs  is  aapty,  raturn  anpty  list. 

Otharwisa 

if  first^auxl  of  tha  first  syabol  in  rhs  with  triad  nil,  has  "aapty 
than  raturn  list  containing: 

flrst'^auxl  of  tha  first  synbol  in  rhs  with  alraady-triad  nil 
*  first-aux2  of  all  but  first  syabol  in  rhs 
alsa  first-auxl  of  tha  first  syabol  in  rhs  with  alraad>triad  nil. 


(dafina  (first-aux2  rhs  gransiarl 
( cond 

( (null  rhs )  nil ) 

( (aambar  'aapty^synbol 

(first-auxl  (first  rhs)  grammar  nil)) 

( appand 

(first-auxl  (first  rhs)  grammar  nil) 
(flrst-aux2  (tail  rhs)  grammar) 

) 

) 

(t  (first-auxl  (first  rhs)  gramaiar  nil)) 

) 


rhs  ampty  ->  ampty  list 
contains  ampty- symbol 
first-auxl? 

first-auxl  haad  * 
flrst-aux2  tall 


alsa  first-auxl  haad 


;«**#«#»f««ff#*f«ff«*f«4«  HANDLES  #«f*ffffff9fffffftl«l«««f««f«l«f«ff<«l«4f 


grammar  assumad  to  includa  faaturas  in  tha  form: 

(  (rl  (nt  f  V  ...  f  vj  (si  f  V  ...  f  v|  ...  (sn  f  v  ...  f  v)) 

( rn  (nt  f  v  ...  f  v]  (sx  f  v  ...  f  v|  ...  ( sy  f  v  ...  f  v)) 

) 

whara  nt  «  non-tarminal ,  f  ■  faatura,  v  s  faatura  valua,  si  »  symbol  i 
ri  s  rula  i 


FUNCTION:  maka-handla-rulas 

PURPOSE;  To  placa  tha  rulas  with  this  handla  on  tha  p-list  of  handla. 


(dafina  ( add-handl o-rulas  handla  rulas-with-handla ) 

(putprop 

handla 

rulas -wlth-handla 
'rulas-with-handla 

) 

) 
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FUNCTION:  •ak«-rul«s-with-h«ndl« 

PURPOSE:  To  ind«x  rulos  by  th«ir  handl*  in  th«  givnn  grxnnxr. 


(dnfin*  ( nAko^rulos-with'-handl*  gramaar) 

( naka-tulaa-wi th-handla2  tall-hand las  grannar )  grannar ) 

) 


tdafina  (Baka-rula8-with-handla2  handlas  granaar) 

<  cond 

( (null  handlas )  nil ) 

(I  ( add-handla-rulas 
( haad  handlas  ) 

(all-rulaa-wlth-handl«  (haad  handlas}  graasiar;} 
< naka-rulas-with-handlal  (tail  handlas)  graifeBar) 

) 

) 

) 


FUNCTION :  rulas-with-handla 

PURPOSE:  To  raturn  tha  rulaa  which  hava  tha  glvan  catagory  as  tha 

first  constltuant  in  tha  rlg)»t  hand  sida  of  tha  rula. 


(dafina  ( rulas-wlth-handla  catagory)  (gat  catagory  'rulas-with-handla)) 

(••••••OilOIOOIOtOIOIIOlilOltiOlIttOOOOftlOIOIfOiOtttlilOOIOflltilllilOt 


FUNCTION:  all-handlas 

PURPOSE:  To  raturn  all  non-dupl icata  first  constituants  on  tha  right 

hand  sida  of  tha  culas  in  tha  gtannar. 


(dafina  ( ail-handias  grannar)  ( dalata-dupl icatas  (napcar  'caadadr  grannar))) 

(dafina  ( a  1 1-f aa tu r a-handlas  grannar) 

( dalata-duplicatas  ( al 1-f aa tura-handlas 2  granaiar))) 

(dafina  (all-faatura -handlas 2  grannar ) 

( cond 

((null  grannar)  nil)  ;  first  faatura  variabla? 

((variabla?  (sacond  (sacond  (rula-syntax  (haad  grannar))))) 

(cons  ;  add 

(first  (sacond  (rula-syntax  (haad  gcannat’.)))  :  tha  cat  of  Ist  on  rhs 
( al 1-f aatura-bandi as2  (tall  grannar))  ;  to  rast  of  handlas 

) 

) 

(t  ;  *lsa 

(cons  ;  add 

(sacond  (sacond  (rula-syntax  (haad  grannar))));  first  faatura  constant 
( a  1 1-f aatura-handlas 2  (tail  grannar))  to  rast  of  handlas 

> 

) 

) 

) 


FUNCTION :  all-rulas-with-handla 

PURPOSE:  To  raturn  all  rulas  in  tha  grannar  that  hava  tha  givan  synbol 

in  tha  first  position  of  tha  rhs  of  tha  rula. 


(dafina  (all-rulas-with-handla  synbol  grannar) 

till tilt 

( cond 

((null  grannar)  nil) 

( (aqual 

synbol  ;  is  synbol  tha  first 

(first  (sacond  (rula-syntax  (haad  grannar)))))  ;  catagory  on  rhs  rula? 
(cons  (haad  grannar) 

(all-rulas-with-handla  synbol  (tail  grannar)))) 


f 
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;  I 

MODULE:  VERTEX_EDGE  I 

PURPOSE:  To  provida  vartax/adga  accasslng  and  altaration  capabi 1 i t ias .  | 

:  I 

:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\S\\\\\\ 
;//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  add-vartax-to-chart 

PURPOSE:  To  add  givan  vartax  to  tha  chart  which  is  a  global  variabla. 


(daflna  <  add'>vart#X'*to-chart  vartax  chart) 
(satq  *chart*  (appandl  *chart*  vartax)) 

) 


r 


VERTCX/EOOE  ACCESSING  FUNCTIONS 


valuas  storad  on  p-llsts 


adga  has  tha  fora  <  laft-vartax,  right-vartax ,  catagory,  naadad. 


(dafmacro 

laf t-vartax-of 

( adga ) 

’  { gat 

,  adga 

'laft-vartax)  ) 

(dafmacro 

right-vartax-of 

( adga ) 

’  ( gat 

,  adga 

' cight-vartax )  ) 

( dafmacro 

catagory-of 

( adga ) 

’  ( gat 

,  adga 

'catagory )  ) 

( dafmacro 

naadad-of 

(adga ) 

'  ( gat 

,  adga 

'naadad) ) 

(dafmacro 

contants-of 

1  adga ) 

’  ( gat 

.  adga 

'contants  )  ) 

(dafmacro 

rula-of 

( adga ) 

‘  ( gat 

t  adga 

'  rula)  ) 

(dafina  (whola-adga  adga) 

(list  ( laft-vartax-o£  adga)  ( right-vactax-of  adga)  (catagory-of  adga) 
(naadad~o£  adga)  (contants-of  adga)  (rula-o<  adga)) 

I 


;  nica  printout  of  display 


(dafina  ( di spl ay-adga  adga) 

(blan)(  2) 

(print-list  (list  ' - adga  '-— ))  (blank  2) 

(print-list  Mlaft  vartax - >  ,  ( laf t-vartax-of  adga)))  (tarpri) 

(print-list  ’(right  vartax  — >  , ( right-vartax-of  adga)))  (tarpri) 
(print-list  Mcatagory  — ,  ( catagory-of  adga)))  (tarpri) 

(print-list  ’(naads  ---- — - — >  ,(naadad-of  adga)))  (tarpri) 

(print-list  Mcontants  ---- — >  ,( contants-of  adga)))  (tarpri) 

(print-list  ’(rula  appllad  — >  ,{rula-of  adga)))  (tarpri) 

( blank  1 ) 

) 


(dafina  (inconplata?  adga)  (naadad-of  adga)) 


if  naadad  of  adga  is 
non  nil  than  incomplata 


(dafina  (coaplata?  adga)  (not  ( inconplata?  adga)))  if  naadad  of  adga  is 
;  aquivslant  to  — >  (not  (naadad-of  adga)))  ;  nil  than  finishad 


vartax  has  tha  form  <  adgas-in,  adgas-out  >  | 


(dafmacto  adgas-in  (vartax)  ’(gat  , vartax  'adgas-in)) 

(dafmacro  adgas-out  (vartax)  ’(gat  , vartax  'adgas-out)) 

(dafnacro  whola-vartax  (vartax)  '(list  (adgas-in  , vartax)  (adgas-out  ,vartax))) 


FUNCTION:  display-vartax-td 

PURPOSE:  To  display  tha  vartax  on  tha  chart  for  a  top  down  parsa. 


(blank  2) 

( print-list 
( print-list 
(print-list 
( print-list 
(blank  2) 


•; - .vartas - ))  (blank  2) 

'(•d^a?  in  - >  ,9(ad9a8-in  vartax)))  (tarpri) 

Madras  out  — >  .^(ad^as-out  vartax))) 

Mproposad - >  ,  P  (  ca  t  aqo  ry-list  (ad^as-out  vortax)M> 


(dafina  (catagc.cv*  list  adga-list)  ;  raturns  the  categcries  in  edge  list 

(napear  'catagory-of  adga-list)) 


FUNCTION :  display-vartax-bu 

PURPOSE:  To  display  tha  vartax  on  tha  chart  for  a  bottom  up  parsa. 


(dafina  (display-vartax-bu  vartax)  ;  NB  divar&a  from  top  down  version 


(blank  2) 

(print-list 

(print-list 

(print-list 

(print-list 

(print-1 i st 

(blank  2) 


M - .vertex - ))  (blank  2) 

Madges  in  - >  .9(adgas-in  vertex)))  (tarpri) 

Madges  out  — >  .^(adgas-out  vertex)))  (tarpri) 

Mrulas  proposed  - >  , 9 ( rulas-proposad-at  vertex)))  (tarpri) 

Mraal  rules  proposed  — >  . 9 ( raa l-rulas-proposad-a t  vertex))) 


) 


FUNCTION:  rulas-proposad-at/raal-rulas-proposad-at 

PURPOSE:  To  return  tha  rules  which  have  bean  proposed  at  the  vertex 

or  to  return  tha  real  culaa  proposed  (ia  with  actual  varaiblas 
used) . 


(dafina  ( rulas-proposad-at  vartax)  (gat  vartax  Mulas-proposad) ) 

(dafina  ( raal-rulas-proposad-at  vartax)  (gat  vartax  ' raal-rulas-proposad ) ) 


VERTEX/EOGC  ALTERATION  FUNCTIONS 


(dafina  ( add-adga-t o-cha r t  edge  chart  track-level) 

( add-adga-out  edge  ( laf t-vartax-of  edge)  track-level) 
(add-adga-in  edge  ( rlght-vartax-of  edge)  track-level) 

) 


(dafina  (add-adga-out  edge  vartax  track-level) 

(putprop 

vartax 

(appandl  (adgas-out  vartax)  edge)  ;  add  edge  to  end  of  adgas-out 

' adgas-out 

) 

) 


(dafina  (add-adga-in  edge  vartax  track-level) 

( putprop 
vartax 

(appandl  (adgas-in  vartax)  edge) 

' adgas-in 

) 

) 


add  edge  to  and  of  adgas-in 


FUNCTION:  naw-vartax 

PURPOSE:  To  create  a  new  identifier  for  tha  vartax.  Use  built-in 
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function  nawsya  which  raturns  naw  syabols  with  incraaantally  * 
highar  postscripts  (ia  it  ganarata  vartaxO,  than  vartaxl,  ate.)* 


,  (dafascro  naw~vartax  () 

.il•«4ltil•ii44«4l44ii4 

'  (  claa  r^-vartax  (nawsya  'vartax))) 

idaflna  i claar-vartax  vartax) 

(satplist  vartax  nil) 

vartax  ;  raturn  naaa 

) 

^dafaacro  naw-~vartax2  t)  ;  altarsta  fora  of  naw  vartax 

' { progn 

(lat  (tnaw-vartax  (nawsya  ’vartax))) 

(satplist  naw-vartax  nil) 
naw-vartax 

) 

) 

f  ) 


FUNCTION:  crasta-adga 

i* 0  S ;  To  craata  a  naw  idantifiar  for  tha  adga,  and  associata  tha 
coaponants  with  it. 

ARGUMENTS:  <  la f t **va r t ax ,  right-vactax ,  catagory.  naadad,  contants 
rula  and  tracking  laval  > 

NOTE:  Whila  this  macro  is  somawhat  unraadabla  (with  lots  of  cars  and 
edrs),  tha  gainad  afficiancy  is  worthwhila  sinca  this  is  ona  of 
moat  accassad  coutinas  in  tha  program. 


(dafmacro  craata-adga  (args) 

’ ( progn 

(lat  ((naw^adga  (nawsyn  ’adga))) 

(satplist  naw-adga 

(list  "laft-vartax 
' right-vartax 
'catagory 
' naadad 
' contants 
'  rula 

) 

) 

naw-adga  ;  raturn  naw  adga  valua 

) 

) 


(car  , args ) 

( cadr  >  a  cgs ) 

( caddr  ,  a  r gs ) 
(cadddt  ,aig3) 
(caddddr  ,arg8) 
(cadddddr  ,args) 
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://////////////////////////////////////////////////////////////////////////// 
;n\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
;  I 

MODULE:  UNIPICATION  *  BINDING  I 

;  PURPOSE:  To  provid*  support  routinos  for  foatur*  nanipul a t i on .  | 

;  I 

;\\\\\\\\\\\\N\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

;//////////////////////////////////////////////////////////////////////////// 


FUNCTION:  ny-unify 

PURPOSE:  To  attonpt  to  unify  two  axprassions. 

If  tha  two  axprassions  ara  idantical  than  thay  unify. 
Otharwisa,  raturn  a  sat  of  varlabla  bindings  that  naka  tha 
two  axprassions  idantical  whan  tha  valuas  for  tha  variablas 
ara  substitutad  into  both  axprassions. 

INPUT;  two  axprassions 

OUTPUT:  t  if  aqulvalant,  list  of  variabla  bindings  that  naka  than 

aquivalant.  or  nil  if  thay  ara  not  and  cannot  ba  nada  aqual. 

NB :  Unification  prasupposas  that  no  occurancas  of  typographically 
aqual  variablas  ara  sharad  batwaan  axprassions. 


(dafina  (ny-unify  a  b) 

( cond 

((or  (aton  a)  (aton  b)) 

(lat*  ((tanpl  (cond  ((aton  a} 
( tanp  (cond  ((aton  a) 
(a  tanpl) 

( b  tanp ) ) 


a  )  (t  b) ) ) 
b)  (t  a) ) ) 


(cond 
((aqab)  (list  ' 
( ( variabla?  a ) 

( cond 

(  (  and  ( 1 1 stp  b ) 
(t  (list  (list 

) 

) 

( (variabla?  b) 
(list  (list  b  a) 


k)  )  ) 


( nanbar 

b)  )  ) 


a  b ) )  nil) 


(t  nil) 


not  a  proposition? 
axchanga  if  naad  ba 
so  a  is  atonic 


a«b  ->  (  k  )  ) 
is  a  variabla? 
yas 

a  is  in  list  b  ->  fall 
also  ->  ( ( a  b  )  ) 

"a  is  bound  to  b" 

is  b  variabla? 

(  (b  a)  ) 

"b  is  bound  to  a" 
alsa  fail 


) 


) 

I 


(t 

;  otharwisa  not 

(lat  ( ( haad-bindings  ( 

ny-unify  (haad  a) 

(haad  b) ) ) ) 

(cond 

((not  haad-bindings) 
(t 

(lat*  ( (naw-a-tail 

nil ) 

;  haad-bindings 

(ny-bind  (tail  a) 

haad-bindings } ) 

( naw-b- t a i 1 

(ny-bind  (tail  b) 

haad-bindings ) ) 

(tail-bindings  (ny-unify  naw- 

a-tail  naw-b-tail ) ) ) 

( cond 

(tail -bindings 

;  tail-bindings 

(my-conposa  haad 

-bindings  tail-bindings))  •  ->  conposa 

(tnil)  ;alsafail 

) 

) 

) 

) 

) 

) 


a  proposition 


nil  fila 


FUNCTION:  variabla?  * 

PURPOSE;  To  datainina  whathax  tha  givan  itan  is  a  variabla.  * 


(dafuacro  variabla?  (itan)  '(nunbarp  ,itan)} 


FUNCTION:  variabla-nana  and  variabla-valua 

PURPOSE:  To  raturn  tha  nana  or  valua  of  tha  variabla  in  tha  binding-list 


(dafina  (variabla-nana  binding-list)  (first  binding-list)) 


uaif lc«tioo . 1 
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(d«fin«  < variablo-va lu*  binding-list)  (sacond  binding-list)) 


FUNCTION: 

bind 

PURPOSE: 

To  raplaca  any  variabla 

in  axpraaaion  by  its  value  as  givan 

in  tha  bindings  list,  if 

there  is  one. 

INPUT: 

axprassion  and  bindings 

list . 

OUTPUT : 

*  *  * 

(dafina  (ny^-bind  aaprassion  bindings-list ) 
( cond 

((null  blndinga-list )  axprassion) 

( ( variabla-valua  (haad  blndinga-list)) 
(«y-bind 

( raplaea-occurancas 
axprassion 

()iaad  bindings-list ) ) 

(tall  binding 8-1 1st ) 

) 

) 


(t  (Biy-bind  axprassion  (tail  bindings-list )  )  ) 

) 

) 


finishad  ->  axprassion 
if  first  bind  has  a  valua 
racursa  on  tail 
raplaca  all  occurancas 
of  fit»t  ■’a*‘''sLlo  in 
bindings  list  with  valua 
rast  of  bindings 


if  no  vsribla  valua 
go  to  naxt  binding 


FUNCTION :  raplaca-occurancas 

PURPOSE:  To  raplaca  tha  occurancas  of  tha  varlabla  (which  is  givan  in 

tha  binding-list  with  its  valua)  with  tha  valua  of  tha 
variabla,  if  it  has  a  valua. 


(dafina  (raplaca-occurancas  axprassion  binding-list) 
( cond 

((null  axprassion)  nil) 

((aq  (haad  axprassion) 

( varlabla-nana  binding-list )  ) 

( cons 

(variabla-valua  binding-list) 
(raplaca-occurancas 
(tail  axprassion) 
binding-list ) 

) 

) 

(t  (cons 

(haad  axprassion) 

(raplaca-occurancas 
(tail  axprassion) 
binding-list )  ) 

) 

) 

) 


axaninad  whola  axprassion? 
naxt  Itan  is  sana  as 
variabla  nama? 
than  raplaca  it 
with  its  valua 
and  raplaca  on  tail 


alsa 

sava  tha  naxt  itan  as  is 
raplaca  on  tail 


FUNCTION:  ay-conposa 

PURPOSE:  To  raplaca  any  variablas  on  tha  rhs  of  an  b  in  tha  first 

binding  list  with  thair  valuas  froa  tha  sacond  binding  list. 

INPUT : 

OUTPUT:  Tha  rasult  of  appanding  tha  abova  with  a  list  of  any 

bindings  in  tha  sacond  binding  list  involving  variablas  not 
occuring  in  tha  first  binding  list. 


(dafina  (ay-coaposa  binding-listl  binding-list2 ) 
( appand 

(ay-coaposal  binding-listl  binding-list?) 
(variablas-inZ-notinl 

( va r iabla-1 i st  binding-listl) 
binding-listZ 

) 

) 

) 


(dafina  ( va r iabla-1 ist  binding-list) 
(appand  (aapcar  'car  binding-list) 

;  (aapcar  ' Is-a-variabla 

(aapcar  'caddr  binding-list) 


) 


bindings  in  list? 
which  hava  variablas 
not  occuring  in  listl 


Ihs  of  rulas 
if  variablas  than 
rhs  also 
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(d«fin*  (■y-coBpos«2  binding-listl  binding-listS ) 
( cond 

((null  binding-lista)  binding-listl > 

( ( yari«bl*-v«lu»  (h*«d  binding^l is t 2 M 
(■y-coapos«2 

(rsplacs-chs-occurancas 
binding-listl 
<h««d  bindlng-li8t2)) 

(tail  binding-ll8t2  ) 


) 


finishad?  ->  rasult 
variabla  has  a  valua? 

;  cacucsa  on  tail 
raplaca  all  occurancas 
of  first  variabla  in  rhs  of 
bindings  list  with  valua 
rast  of  binding-list2 


(t  <ay-coMpo8a2  binding-listl  (tail  binding-l ist 2 ) ) )  ;  alsa  if  no  variabla  valua 
)  ;  than  naxt  binding 


FUNCTION:  variablas-in2-notinl 

PURPOSE:  To  raturn  tha  sub-list  of  bindings  in  list2  which  do  not  hava 

variablas  occuring  in  listl. 


(dafina  (variablas-ln2-notinl  variablas-in-listl 
(cond 

( (null  list2  )  nil ) 

((■aabar  ( variabla-nana  (haad  list2)) 
variablas-in-listl ) 
(variabla8-in2-notinl 
variablas-in-listl 
(tail  list2)  ) 

) 

(t  (cons 

(haad  list2) 

(variablas-in2-notlnl 
variablas-in-listl 
(tail  list!))) 

) 

) 

) 


1  i  s  1 2  ) 


naxt  variabla  in  list2 
a  variabla  in  listl? 
racursa 

saaa  variablas 
f orgat  first 

alsa 

kaap  haad 
filtar  tail 


FUNCTION:  raplaca-rhs-occurancas 

PURPOSE:  To  raplaca  tha  occurancas  of  tha  variabla  (which  is  givan  in 

tha  paranatar  "binding”  along  with  its  valua)  on  tha  rhs  of 
bindings  in  tha  binding  list  with  tha  valua  of  tha  variabla, 
if  it  has  a  valua . 


(dafina  (raplaca-rhs-occurancas  bindings-1 i s t 
( cond 

((null  bindings-list )  nil) 

((aq  (sacond  (haad  bindings-list)) 
(variabla-nana  binding)) 

(cons 

(list 

(first  (haad  bindings-list)) 

( variabla-valua  binding)) 

( raplaca-rhs-occurancas 
(tail  bindings-list) 
binding ) 


binding ) 


no  mors  binding-list  ->  stop 
naxt  itam  rhs  is  sasia  as 
variabla  nama? 
than  raplaca  it  with 
a  naw  binding: 

-  same  Ihs  variabla 

-  its  valua 

and  rapJaca-rhs  on  tail 


) 

(t 


(cons 

(haad  bindings-list) 
(raplaca-rhs-occurancas 
(tail  bindings-list) 
binding ) ) 


alsa 

save  tha  next  item  as  is 
raplaca-rhs  on  tail 


■^4 


f«atur«_pars«s . 1  Wad  Auq  19  05:05:11  1967 

///////////////////////////////////////////////////////////////////////////z 

\\S\\\\S\\S\\N\\\\\\\NN\\\N\\\\\\\N\\\\\\\\\\\\\\\\\\\\\\\\N\\\\\N\\\NN^NN''\ 

I 

MODULE:  FEATURE  PARSES  I 

PURPOSE:  To  provido  support  for  rstrioving  psrsos  with  fsatures.  I 

I 


FUNCTION :  output-traas-featucas 

PURPOSE:  To  print  out  a  traa  listing  of  tha  parsings  for  faatura  parsa. 


(dafina  (output -traas-faatur as  succas  s  f ul-adgas ) 

;9»tl9lltt9tl#tl9«99tl«llifti6«9«9*ll«99tl •»«•#•« 

(lat  ((traas  ( pa r aa- t raa-f aa tut a- 1 1 s t  succassful-adgas M I 
(blank  2 ) 

(sapc  'traaprint  tcaas) 

) 

) 


FUNCTION:  output-pa rsas-faaturas 

PURPOSE;  To  print  out  a  nica  listing  of  tha  parsings  for  faatura  parsa. 


(dafina  ( output -pa r sas-faatu ras  succass f ul-adgas ) 


(lat  ((traas  (parsa-traa-faatura-list  succassful'-adgas))) 
(blank  2) 

(princ  (aval  Mpp  ,traas)M 

> 

) 


FUNCTION  :  parsa-traa-faatuca-list 

PURPOSE:  To  translata  a  list  of  succassful  ad^as  with  thair  bindings 

into  parsa  traas . 


(dafina  (parsa-traa-faatuca-list  succas s f ul-adgas ) 
(mapcac  ' naka-t raa- f aa t u r as  succas s ful -adgas ) 

) 


FUNCTION:  aaka-r raa-f aaturas 

PURPOSE:  To  build  a  conplata  traa  structura  fro»  an  adga  by  collacting 

all  bindings  for  that  adga,  than  calling  aaka-traa  on  all 
tha  includad  adgas. 


(dafina  ( naka-t raa-f aaturas  adga-binding-1 let ) 

(lat  ((adga  (first  adga-binding-list ) ) 

(binding-list  ( sacond  adga-binding-list ) ) ) 

( cond 

( ( is-a-catagory  (first  (catagory-of  adga))) 

(list 

(instantiata  (catagory-of  adga)  binding-list) 
(list  (centants-of  adga))) 

) 

(t 

(cons 

(instantiata  (catagory-of  adga)  binding-list) 
(napcar  ' isaka-t rea-f aaturas  (contants-of  adga)) 
(mapcar  ’naka-traa-faaturas 
( add-blnds-a 1 1 

(contants-of  adga)  (tail  binding-list))) 

) 

) 

) 

) 

) 


paranatar  consists  of: 

-  adga  1st 

-  binding  2nd 

laxical  adga? 
list  of 

bindings  of  adga 
sanantics  or  word 


bindings  of  adga 
t raas  of  all 
traas  of  all 
containad  adgas 
with  currant  bindings 


FUNCTION:  add-binds-al 1 

PURPOSE:  to  add  tha  givan  bindings  to  all  itaws  on  tha  adga-list. 


I 

I 
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(d«fin*  ( add-binds-all  edg«-li6t  bindings) 

( cond 

((null  •dgs-list)  nil) 

(t 

(cons 

(add-binds  (haad  sdga-list}  bindings) 

( add-blnds-s 11  (tail  adga-list)  bindings) 

) 


) 


) 


FUNCTION:  add-binds  I 

PURPOSE:  to  add  givan  bindings  to  tha  binding  list  of  adga-binds.  | 


(dafina  (add-binds  adga-binds  bindings-to-add) 

(list 

(first  adga-binds)  ;  the  edge 

(appand  (sacond  adga-binds)  bindings-to-add)  ;  bindings  +  bindings  to  add 

) 

) 


FUNCTION :  find-faatura-parsas 

PURPOSE:  To  find  all  tha  parses  from  tha  chart  by  finding  a) 

complete  parses  starting  with  edges  from  start. 


(dafina  (find-faatura-parsas  ^tartsymbol  chart) 

(let  ((start  (first  chart)}  ;  start  «  first  vertex  in  chart 

(finish  (car  (last  chart))))  ;  finish  »  last  vertex  in  chart 

(flnd-all-feaCura-paraes 
startsymbol 
finish 

(adges-out  start)  ;  examine  the  edges  from  start 


) 


FUNCTION:  find-all-feature-parses 

PURPOSE:  To  recurse  on  the  list  of  all  edges  from  the  start  vertex  and 

test  to  see  if  they  meet  the  three  conditions  required  to  be 
a  1 ega 1  parse: 

1  --  edge  out  must  have  start  symbol  label. 

2  --  the  right  vertex  of  edge  must  be  tha  finish  vertex. 

3  —  theca  must  be  no  more  required  constituents. 

OUTPUT:  Return  tha  list  of  edges  and  their  bindings  which  represent 

tha  valid  parses  in  tha  chart. 


(dafina  ( f ind-a 1 1 -f aatura-pa r sas  startsymbol  finish  adgas-out-of-start ) 
( cond 

((null  adgas-out-of -s t a r t )  nil) 

(land 

( aq  (first 

(catagory-of  (head  adgas-out-of-start)  )  ) 
startsymbol ) 

(aq  ( right-vartax-of  (head  adgas-out-of-start)) 
finish ) 

(aq  (naadad-of  (head  adgas-out-of-start)) 
nil  )  ) 

(cons 

(list 

(head  adgas-out-of-start) 

(contents -of  (head  adgas-out-of-start) ) 


) 

(find-all-faatura-parsas 

startsymbol 

finish 

(tail  adgas-out-of-start)) 


finished  ->  quit 
parse  good  1  f  : 

I  first  of 

1  cat  of  edge  is  start 
symbol  and 

2  right  vertex  is 

last  vertex  and 

3  no  needad  constituent 


kee:>  head  of  list  with 
Its  bindings 


examine  tail 


) 

( t  ( flnd-all-feature-parsas 


else  examine  tail 
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startsymbol 

finish 

(tail  edg®s-out-of-start) ) 


FUNCTION:  co 1 1 ac t-a 1 1 -b i ndi ngs 

PURPOSE:  To  collect  all  the  bindings  of  an  edge  which  are  held 

implicitly  in  its  contents  field,  and  explicitly  in  its 
category . 


(define  (collect-all-bindings  edge) 

( cond 

( ( i s-a-ca t ego ry  (category-of  edge))  nil) 
( t  ( mapca  r 

'collect-edge-binding 
(contents-of  edge)) 


edge  lexical?  ->  nil 
append 

collect-all-bindings 
for  each  pai r 
<contained-edge  bindings > 
In  edge  contents 


(define  (collect -edge-binding  edge-binding) 

( append 

( c o 1 1 ec t- a 1 1 -b i nd 1 ng a  (first  edge-binding)) 
(second  edge-binding) 


append 

bindings  for  edge 
bindings  of  edge 


FUNCTION;  find-non- variable- value 

PURPOSE:  To  recover  the  ultimate  "real"  value  for  a  feature  variable. 


(define  (find-non-variable- value  feature-variable  binding-list) 

(let  ((value  (find-value  feature-variable  binding-list)))  ;  get  feature  value 
( cond 

((null  value!  feature-variable)  ;  no  value?  ->  nil 

((not  (variable?  value))  value)  ;  not  variable"'  ->  value 

(t  ( f ind-non- va r iable - va lue  value  binding-list))  ;  else  recurse 


FUNCTION;  find-value 

PURPOSE:  To  find  the  value  of  the  given  variable  in  the  binding-list 

or  nil  if  it's  not  in  the  list. 


(define  (find-value  variable  binding-list) 

(  cond 

((null  binding- 1 i s t )  nil) 

((eg  variable  (first  (head  binding-list})) 
(second  (head  binding-list))) 

(t  (find-value  variable  (tail  binding-list))) 


empty  b i n d i ng- 1 i s t ?  ->  nil 
variable  matches? 

- >  value 

else  look  at  tail 


FUN'^TION:  instantiate 

PURPOSE:  To  replace  any  variable  in  category  by  a  non-variable  value. 

Instantiate  deals  with  both  lists  and  atoms,  allowing 
flexibility  when  calling. 


(define  (instantiate  category  binding-list) 

(cond 

((null  category)  nil) 

( ( atom  category } 

(cond 

((variable?  category) 

(find- non-variable-value  category  binding-list)) 
(t  category)) 


finished?  ->  nil 
if  just  atom  sent 

variable?  -> 
give  value 
else  return 


4 


iti 


.1 
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(cons  ;  construct  s  list 

(instantiats  (haad  catagory)  binding-list)  kaap  haad 

(instantiata  (tail  catagory)  binding-list))  ;  instantiata  tail 

) 

) 

) 
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//////////////////////////////////////////////////////////////////// ^/////^/ 


I 


MODULE:  FEATURE  PROCESS 

PURPOSE:  To  provTda  support  for  procssslng  odgss  with  fostitrss. 


I 


////////'/////////////////////////////////////////////////////////////////// 


FUNCTION:  proc«8s-f •aturvB 

PURPOSE:  To  procoas  an  ad^a.  If  adga  is  inconplata,  procaas  using 

procaael.  If  adga  ia  covplata,  procaas  using  procassS. 
Procaasl  and  proca682  dascribad  in  datail  balow. 

NB :  This  is  an  updatad  varsion  of  procass  with  faaturas.  (12/3/86) 


(daflna  (procass-faaturaa  adga  track-laval) 

( cond 

((incomplata?  adga) 

(procassl-f  adga 

(coaplata-adgas  (adgas-out  ( right-vartex-of 
track-laval ) 

) 

((complata?  adga) 

(procass2-f  adga 

(inconplata-adgas  (adgas-in  (laft-vartax-of 
t  rack-laval ) 

) 

) 


) 


;  if  adga  is  inconplata 
adga } )  ) 

;  if  adga  is  complata 
adga )  )  ) 


FUNCTION:  procassl-f 
PURPOSE: 


(dafina  (procasal-f  adga  complata-adgaa  track-laval) 

( cond 

((null  complata-adgas  )  nil)  ;  finishad  stop 

(t 

(lat*  ({complata  (haad  complata-adgas)) 

(naads  (naadad-of  adga)) 

(bindings  (my-unify  (first  naads)  (catagory-of  complata)))) 


(  cond 
( bindings 
( cond 

((aqual  bindings  '((o  k))) 

( my-push 

( craata-adga 
(list 

( laf t-vartax-of  adga) 

( right-vartax-of  complata) 

(catagory-of  adga) 

( tall  naads  ) 

(appandl  (contants-of  adga) 

( list  complata  )  ) 

( rula-of  adga ) 
t  rack-laval 

) 

) 

*aganda  * 

) 

) 

(t 

(my-push 

( craata-adga 
(list 

(laft-vartax-of  adga) 

(right-vartax-of  complata) 

(instantiata  (catagory-of  adga)  bindings) 

(instantiata  (tail  naads)  bindings) 

(appandl  (contants-of  adga) 

(list  complata 

bindings  ) ) 


unification  succass? 

no  bindings? 
add  naw  adga  to  aganda 


loft  vartax 
right  vartax 
catagory 
naadad 

contants  adga  -f 
complata  adga 
rule  of  proposing  adga 
tracking  information 


alsa  sava  bindings 
and  instantiata 
add  naw  adga  to  aganda 


laft  vartax 
right  vartax 
catagory  instantiatad 
with  bindings 
naadad  instantiatad 
with  bindings 
contants  adga  -f 
complata  adga 
w/  inc/comp  bindings 
rula  of  proposing  adga 


( rula-of  adga ) 
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track'-laval  ;  tracking  inforaation 

) 

) 

*aganda* 

) 

) 

) 

) 

)  ;  and  COND 

)  ;  and  of  lat 

<procassl'f  adga  (tail  coaplata-adgas )  track-laval)  ;  procass  tail 

) 

) 

) 


FUNCTION:  proca8s2-e 
PURPOSE : 


I 

r 


\ 

\ 


(dafina  (procass2>f  adga  inconplata-adgas  track^laval) 

( cond 

((null  incomplata-adgas )  nil) 

( t 

(lat*  ( ( incomplata  (haad  incomplata-adgas)) 

(naads  (naadad-of  incomplata)) 

(bindings  (my-unify  (first  naads)  (catagory-of 

(  cond 
( bindings 
(cond 

((agual  bindings  '((o  k))) 

( my-push 

( c  raa ta-adga 
(list 

( laft-va r tax-0 f  incomplata) 

( right-vartax-of  adga) 

(catagory-of  incomplata) 

(tail  (naadad-of  incomplata)) 

(appandl  (centants-of  incomplata) 

(list  adga )  ) 

(rula-of  incomplata) 
t  r ack-la va 1 

) 

) 

*aganda  * 

) 

) 

(t 

( my-push 
( c  raata-adga 
(list 

(laft-vartax-of  incomplata) 

(right-vartax-of  adga) 

(instantiata  (catagory-of  incomplata)  bindings) 

(instantiata  (tail  (naadad-of  incomplata)) 
bindings  ) 

(appandl  (contants-of  incomplata) 

(list  adga  bindings)) 

(rula-of  incomplata) 
track-laval 

) 

) 

*aganda  * 

) 

) 

) 

) 

) 

)  ;  and  of  lat 

(procass2-f  adga  (tail  incomplata-adgas )  track-laval)  ; 

) 

) 

) 

(dafina  (procass2-fl  adga  incomplata-adgas  track-laval) 

( cond 

((null  incomplata-adgas )  nil) 

( ( aq  (first  (naadad-of  (haad  incompl ata-adgas ) ) ) 
(catagory-of  adga) ) 

( my-push 

( craata-adga 
(list 

(laft-vartax-of  (haad  incomplata-adgas)) 


;  finishad  — >  stop 


adga ) ) ) ) 

;  my-unify  succassful? 

;  no  bindings? 

;  add  new  edge  to  agenda 


left  vertex 
right  vertex 
category 

needed 

contents  incomplete 
and  adga 

rule  of  proposing  adga 
tracking  information 


;  else  save  bindings 
;  and  instantiata 

add  new  edge  to  egende 


left  vertex 
right  vertex 
category 
with  bindings 

needed 

with  bindings 
contents  incomplete 
+  edge  symbol 
rule  of  proposing  edge 
tracking  information 


process  ti  il 

f 

\ 

! 

finished  — >  stop 

first  needed  incomplete  \ 

eg  cat  of  edge?  I 

add  new  edge  to  egende  1 


i  ^  1  lafc 


3 


f««tar«  process. fast 
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< right^vartax-of  adga )  right  vartax 

(catagory-of  (haad  incosplata-adgas ) )  ;  catagory 

(tail  (naadad-of  (haad  incoaplata'^adgaa )  ) )  naadad 

(appandl  (contants-of  (haad  incoaplata-adgas ) )  contants  Incoaplata 
adga)  ;  *  adga  ayabol 

(rula-of  (haad  incomplata-adgaa ) )  rula  of  proposing  adga 

track-laval  ;  tracking  Inforsation 

) 

) 

*aganda*  ) 

(proca8s2>fl  adga  (tail  incosplata-adgas )  track-laval ) ;  procass  tail 

) 

(t  ;  also 

(proca882-fl  adga  (tail  incosplata-adgas )  track-laval);  procass  tail 

) 

) 

) 


f 
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;//////////////////////////////////////////////////////////////////////////// 
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
;  I 

MODULI:  IIALISATIOM  I 

;  PUBP08E:  To  roollio  «  Sivo  ayntoctic  troo  strueturo  uein^  notpholo^icoL  j 

•ynthoaia.  I 

OMIIR:  copywrito  Mark  T.  Maybury,  May,  lPt7.  I 

;  I 

;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\s\\\\\\\\\\\\\\\ 

i ///////////////////////////////////// /////////////////////////////////////// 


PUnCTIOM:  roaliao  | 

PUIFOSI:  To  llnoariio  a  ayataa  troo  to  a  aurfaco  atrlng  ot  vorda  by  | 

raeurainy  down  tha  traa  tintli  it  raachaa  tha  laavaa,  at  which  / 

point  a  eonatituant  la  caalltad.  I 


(daflna  (raallaa  syntaa-traa) 

(napear  ' raaliaa-conatltuaat  (liaaarlaa  ayntax>-t roa )) 

) 


PUNCTIOM:  llnaarlaa  f 

PUIPOSIt  To  linaarlaa  a  ayntax  traa  to  a  aurfaco  atrlng  of  worda  with  | 
thair  faaturaa  by  racurainy  down  tha  traa  until  raaehlns  tha  j 
laavaa,  at  which  point  a  toot  and  faaturaa  in  laturnad.  j 


<dafina  (linaariia  ayntax-t raa ) 

( cond 

((null  ayntax-traa)  nil)  ;  conplatad  roaliaation? 

( ( ia-a-catagory  (first  (haad  ayntax-traa)))  ;  if  naxt  itan  tarninal 

diet 
( appand 

(caar  (tail  ayntax-t raa )  ) 

(haad  ayntax-traa)))) 

(t 

(apply  'appand 

(aapear  'linaariaa  (tail  ayntax-traa)))  ;  also  raalita  tha  baginning 

) 

) 

) 


FUNCTION:  raalifa-conatituant  ) 

PURPOSE:  To  call  tha  norpholegical  ayntaaiear  to  shapa  tha  output  | 

in  accordanca  with  tha  faaturaa  of  tha  word.  | 


( daf ina  ( raalisa-conatituant  word- faaturaa ) 
(norph-syn 

(haad  word-faaturaa )  :  word 

(list  (tail  word-faaturaa))  ;  faatura  list 

) 


1 


aorpkcr**! 
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//////////////////////////////////////////////////////////////////////////// 

\\\\N\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

HODULf:  MORPNOLOOZCAL  STSTRKSISgE  I 

f URPOSI X  To  tyiithoaito  tho  propor  ourtoco  atructuro  of  a  root  word  | 

tIvob  tho  propor  footuroa  (or  piur,  poat,  3p,  otc).  I 

OWNBR:  copywrlto  Hark  T.  Haybury,  May,  1007.  I 

MB:  Aaauaoa  dictionary  fornat,  ontry  •  <ayntax  aonantica  roaliBatlon>  j 
doaeribod  in  VH*P/dictloBary/dictionary_nacco  .  1 .  I 

\N\\\\\\\\N\\\\\\N\N\\\\\\\N\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\^\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


ruMCTION:  norph-ayn 
PUKPOSI:  top  lovol  routitto 


(dofino  (norph-ayn  root  ontry) 

( cond 

Mnounp  ontry)  ;  if  noun 

(norph-aytt'-n  root  ontry)) 

((vorb?  (word-typo  ontry))  t  olao  if  vorb 

(norph-ayn^v  root 

(liat  (cons  'vorb  (hoad  ontry))  (tail  ontry)))) 

((adjp  ontry)  ;  olao  if  adjoctivo 

(norph-ayn-ad j  root  ontry)) 

((nanop  ontry)  ;  olao  if  propor  noun? 

(norph^ayn'^nano  root)) 

(t  root)  i  also  roturn  givon 


PURCTION:  look*for-irrogulara  I 

PURPOSS :  To  look  up  a  givon  root  word  with  foaturoa  to  dotornino  if  it  j 

hat  an  irregular  torn  boforo  autenatic  norphological  aynthoaia.  | 


(dofino  ( look-f or^i r rogula r a  root  ontry) 
(lot  ( ( irrog-ontrioa  (a-liat  root))) 
(cond 

(  (null  irrog'^ontrioa  ) ) 

((hoad  (aatchoa  ontry  irrog-ontrioa) ) ) 


;  nil  if  no  irrog~ontrioa 
;  chock  for  matchoa  •  roturn 
;  juat  firat  roalitation 
;  UPDATE  thla  to  aty 

;  ehooao  randonly  or  intolligontly 


PUlfCTlOR:  aatchoa  I 

PURPOSE:  Takoa  llatl  and  roturna  tho  Itoaa  that  natch  it  in  liat  2.  I 

Liat2  it  a  doaeriptien  of  fora  <  ayntax  aonantica  roali?atien>  j 


(dofino  (aatchoa  liatl  liat!) 

( cond 

( (null  llat2) ) 

((ny-unify  liatl  (ayntax  (hoad  liat2))) 
( cone 

(roalitation  (hoad  liatZ)) 

(natchoa  liatl  (tail  liat2))) 

) 

(t  (natchoa  liatl  (tail  liatl))) 


;  if  ayntax  of  firat  iton  aatchoa 


;  aavo  it  and 
;  rocurao  on  tail 


also  rocurao  on  tail 


PUMCTIOV:  aorph-ayn-n  1 

PURPOSE:  To  aynthoaiio  tho  propor  forn  of  a  noun  givon  root  and  foatutB'  .  I 


(dofino  (aerph-ayn>n  root  ontry) 

( cond 

((and  (oq  (noun>typo  ontry)  'count) 
(oq  (noun-count  ontry)  'plur)) 
(nako-n-plucal  root ) ) 

(t  root) 


FUfICTIOIf:  norph-ayn-v  | 

PURPOSE;  To  eynthoelto  tho  propor  fora  of  o  vorb  givon  root  and  foaturoa.  | 


I 
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(d«fiQ«  (aorph-tyn-v  root  •atcy) 


(coad 

<v«rb-typ*  aBtry)  Mcopui*  aua 
root )  ; 

((oq  (vorb-lag  ontry)  *1b9)  ; 

(aoko'-v-lag  root ) ) 

((and  (#q  (vorb-couBt  ontry)  '«iB«3p>  ; 

(oq  (vorb-tonoo  ontry)  'pros)) 
(noko-V'-Spo  root)  ) 

((oq  (vorb-tOBOo  ontry)  'post) 
(aako-v-post  root)) 

(t  root)  ; 

) 


nodal  do  thiak-know  havo-v)) 
roturn  root  if  irroqular 
proaoBt  participlo? 

3rd  poraoB  alnqular? 


paat  tonao? 
olao  roturn  root 


) 


PUMCTION:  norph-oyn-adj  | 

PURPOSC:  To  aynthoaiao  tho  propor  fora  of  a  adj  qivan  root  and  ontry.  | 


<dofiao  (aiorph-oyn-ad j  root  ontry) 

( cond 

((oq  (adj-typo  ontry)  * coapa rativo )  (add  root  'or)) 
((oq  (adj-typo  ontry)  ' auparlat i vo )  (add  root  'oat)) 
(t  root) 

) 

) 


fUNCTIOII:  aorph-ayn-naao  | 

PUkPOSB:  To  aynthoaiao  tho  propor  fora  of  a  naaa  glvon  root  (capitaliio)  j 


(dofina  ( aorph^ayn-nano  root  ontry) 
(capitallso  root) 

) 


PUHCTZOH:  add  I 

PURPOSE:  To  add  or  eeneatonato  a  qivon  ondinq  to  a  word.  | 


(doflno  (add  word  ondlng) 


( eond 

( (null  word)  ) 

( (null  ondlnq) ) 

(t  (iaplodo  (appond  (okplodo  word) 

) 


(oaplodo  ondinq}))); 


no  word  <->  don't  add 
no  ondlng  •>  nil 
othorwiao  add  it  on 


FUNCTION:  nako-n>plural  | 

PURPOSE:  To  odd  tha  appropriato  aorpholoqlcal  anding  to  pluraliaa  a  noun.j 


(dafina  (naka-n-plural  root) 

( cond 

((aq  (last  (aaploda  root))  'a)  (add  root  'as)) 
( t  (add  root  ' a ) ) 

) 


FUNCTION:  aaka~v-3ps 

PURPOSE:  To  add  tha  appropriata  aorphological  ending  to  naka  verb  3ps ■ 


(dafina  (Baka-v«3ps  root)  (add  root  's)i 


;  FUNCTION:  aaka-v-lng  | 

;  PURPOSE:  To  add  tha  appropriata  aorphological  anding  to  aaka  varb  paat.  ] 

(dafina  (aaka-v^lng  root)  (add  root  'ing)) 

;  11a  •>  lying,  fly  ->  flying,  taka  ->  taking 

;  FUNCTION:  aaka-v-paat  | 

;  PURPOSE:  To  add  tha  appropriata  aorphological  anding  to  aaka  varb  past.  | 
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(d«fiB«  (aakB-'V-paat  root)  (add  root  'od)) 


s 
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//////////////////////////////////////////////////////////////////////////// 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\s\\\\\\\\ 

I 

MODULI:  SUXFACB  POKN  I 

PUXPOSK:  To  proaont  •yntactic  gonorotor  output  in  a  cloan  aurfaca  forn.  j 

omiBX:  copyvrita  Mark  T.  Maybury,  Juno,  lSt7.  j 

I 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 

//////////////////////////////////////////////////////////////////////////// 


PUMCTZON:  aurfaca-forn 

PURP08I:  to  preduca  a  aantanca  with  propac  othographlcal  praaantation 

following  punctuation  rulaa  and  apacing  convantiona. 


(dafina  (aurfaca-forn  lax-punct-liat ) 

( output-aurf aca-f orn 
( appand 

(liat  (capitaliaa  (firat  lax-punct-liat ) ) ) 
(tail  lax-punct-liat ) 

'  (pariod) 


PUMCTZON:  output-aurf aca-forn  | 

PURPOSS:  to  output  a  aantanca  with  propar  othographlcal  praaantation  j 

following  punctuation  rulaa  and  apacing  convantiona.  j 


(dafina  (output-aurfaca-fora  lax-punct-1 iat ) 

( cond 

((null  lax-punct-liet )  (nag  N))  ;  nova  to  now  lina 

((punctuation?  (sacond  lax-punct-liat ) )  ;  naxt  itan  punctuation 

(princ  (firat  lax-punet-liat) )  ;  output  naxt  word 

(print-punct  (aacond  lax-punct-liat ) )  ;  output  punctuation 

(princ  "  " )  ;  output  apaea 

(output-aurfaca-forn 

(tail  (tail  lax-punct-llat > ) >  ;  racuraa  on  raat 

) 

(t 

(princ  (firat  lax-punct-liat M  ;  output  naxt  word 

(princ  "  ")  ;  output  apaca 

( output-aurfaca-f orn  (tail  lax-punct-liat ) )  ;  racuraa  on  raat 


;  FUNCTION:  capitaliaa  | 

;  PURPOSE:  to  convart  tha  firat  lattar  of  tha  givan  word  into  a  capital.  | 

(dafina  (capitaliaa  word) 

(inploda  (cona  (capital  word)  (tail  (axploda  word))}} 


FUNCTION:  capital 

PURPOSE:  to  raturn  tha  firat  lattar  of  word  capitalizad  (if  not  already 


(dafina  (capital  word) 

( cond 

((<«  (car  (aubatringn  word  1))  90) 

(car  (axploda  word))) 

(t  (aacii  (-  (car  (aubatringn  word  1))  32))) 


capital  letter?  65  code  =  ‘0 

raturn  it  unchanged 
alsa  capitalize  firat  lattar 


FUNCTION:  prlnt-punct 

PURPOSE:  to  print  tha  propar  punctuation  givan  a  keyword. 


(dafina  (punctuation?  itan) 

(nanbar  itan  Mconna  period  colon  quaatlon-nark  axclanation-point ) ) ) 


2 
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(eon4 

( <*4  punet 
((•9  pURCt 
((•q  punet 

< ( eq  pUBCt 

((•q  punet 


'COM*)  (peine  '\*M 
'period)  (prlnc  ’X.)) 
'colon)  (prlne  *:)) 
'flueetlon-nerk )  (princ  *?)) 
' one lenet ion-point )  (princ 


) 


) 


1  ) ) 
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MONTAGUE  GRAMMAR 


NoBtAgv* . grawiar 
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HONTXOUl  SEMANTIC  GRAMMAR 

Phrasa  structuras  ara  groupad  t>y  claaalf lea t ion .  Each  graaaar  cula  la 
followad  by  a  Engliah  axaapla  in  tha  Hauropaychology  donaln. 

GRAMMAR  SYNTAX 

graanar  ->  <rula>* 

rula  ->  <rula  naaa>  <8yntax>  <8aaantic8> 
rula  nana  ->  <8trlng  of  charactars  raprasantlng  rula> 

syntax  ->  <catagory>*  whara  haad  la  Ihs  cula  and  tail  is  rhs  cula 
haad  Bust  ba  a  non-tarainal 
catagory  ->  <grBnBa r-syabol >  <faatura>* 
graBBar-ayabol  ->  ag  s,  vp,  np,  noun,  anpty-symbol 
faatura  ->  <faatura''Con8tant>  |  <  f  aa  tura-va  r  iabla  > 

asBantlca  >>  <lanbda-calculu8>f irst-ordar-logical-forB> 


( 8atg  *graBBar*  ' ( 


DECLARATIVE  STATEMENTS, 


WH  AND  YES/NO  QUESTIONS 


I 


Oaclarativa 


Santancas 


I 


(  8  <dac> -<  >  np-f  vp  ((s  (typa  daclarativa)  (voica  activa)) 

(np  (count  1)  (parson  2)  (gandac  4)] 

(vp  (count  1)  (parson  2)  (tansa  3)  (voica  activa))} 
(sona  (_a)  (np  (vp  _a ) ) )  ) 

;  "Tha  patlant  raada  slowly" 


"Tha  doctor  ir  stigatas  tha  patiant's  laft  hanisphara." 


;  NB:  Thara  ara  thaoraticai  problans  with  tha  avant  variabla. 

;  Unf ortunataly ,  not  all  varbs  ara  singla  avants  and  can  cafar 

;  to  continous  or  rapaatad  action,  ag  "Tha  man  cantad  tha  car  for  a  waak. 

<  8  <dac  > ->  np-f  vp  <pa8  >  ((s  (typa  daclarativa)  (voica  passiva)] 

( np  (count  1)  (parson  2}  (gandar  4)) 

( vp  (count  1)  (parson  2)  (tansa  3)  (voica  passiva)]) 

(sona  (_a)  (np  (vp  _a ) ) )  } 

;  "tha  hanisphara  is  containad  in  tha  brain" 


Connactad 


Santancas 


I 


(  8->8-fconn+8  ((s  (typa  1)  (voica  2)] 

(s  (typa  1)  (voica  2) ) 

( connacti va 1 

(s  (typa  3)  (voica  4)1)  (sons  (_•)  (and  s  s))  ) 

;  "Tha  fanily  is  concarnad  bacausa  tha  patiant  has  Alshainar's  disaasa." 


(  np->dat+nl  ((np  (count  1)  (person  p3)  (gender  7)) 

(datarminar  (type  2)  (count  1)  ()>:ind  3)  (eKtent:ion 

(negative  5)  (number  6)1 
(nl  (type  1)  (gander  7)J) 

(datarminar  nl ) ) 

"thasa  nan"  "a  doctor"  "avary  patiant" 


(  np>>nun4'nl  ({np  (count  1)  (parson  p3)  (gandar  2)] 

(nuBbar  (typa  1))  (nl  (typa  1)  (gandac  2))) 
( nunbar  nl ) ) 

(  np->propar>noun  ((np  (count  1)  (parson  p3)  (gandar  2)] 
(propar-noun  (count  1)  (gandar  2)]) 

(L  (  P)  (  P  propar-noun) )  ) 


Michalla 


2 
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(  np-^aatto^noun  ((np  (count  eiagSp)  (porson  p3 )  (gondor  2)1 

{noun  (count  (porson  singSp)  (gondor  2))) 

(I,  (_P)  (_P  noun)  )  ) 

'potionts* 


(  np->noun-f0«88  <  [np  (count  oingSp)  (poroon  p3 )  (gondor  2)1 

{noun  (count  4)  (typo  S)  (gondor  6)] 

(noun  (count  noso)  (porson  singSp)  (gondor  2))) 
(L  (  P)  (_P  noun) )  ) 


(  np->pronoun 


.  Hj*  "you"  "oho" 


((np  (count  1)  (porson  2)  (gondor  3)) 
(pronoun  (typo  pots)  (count  1)  (kind  oubj) 
(L  (_P)  (_P  pronoun))  ) 


(porson  2)  (gondor  3)]) 


(  np->np-fpp  ((np  (count  1)  (porson  2)  (gondor  3}) 

(np  (count  1)  (poroon  2}  (gondor  3))  (pp)) 
(L  {_%)  (ond  (nl  _x)  (pp  _x ) ) )  ) 

;  "tho  rosult  of  tho  oxon" 


(  np~>np:np  ((np  (count  1)  (porson  2)  (gondor  3)) 

(np  (count  1)  (porson  2)  (gondor  3)1 
( colon ) 

(np  (count  4)  (porson  S)  (gondor  6))) 
(L  (_P)  (_P  np) )  ) 

;  "throo  ports:  tho  honnor»  onvil,  ond  stirrup" 


(  np>>np>coBna>'np  ((np  (count  plur)  (porson  2)  (gondor  3)) 
(np  (count  1)  (porson  2)  (gondor  3)] 
(conna ) 

(np  (count  4)  (porson  5)  (gondor  6))) 

(L  (_P)  (_P  np) )  ) 

"tho  h«snor«  tho  onvii" 


(  np>>np-con j-np  <(np  (count  plur)  (porson  2)  (gondor  3))  ;  nb:  count  plur 

(np  (count  1)  (porson  2}  (gondor  3)) 

(conjunction  (typo  4)) 

(np  (count  3)  (porson  6)  (gondor  7)]) 

(L  (_P)  (_P  np) )  ) 

;  gon  "oT  b  ond  c"  or  "b  and  c"  but  not  "a,  b,  and  c" 

;  "tho  anvil  and  tho  stirrup" 


(  np->np4rol  ((np  (count  1)  (porson  p3)  (gondor  2)) 

(np  (count  1)  (poroon  p3}  (gondor  2)) 

( coamo ) 

(rol  (typo  3))  ;  which,  thoroforo,  for  oxaaplo 

(coaaa) )  (np  rol )  ) 

;  "tho  potiont  who  injostod  tho  poison" 


;  Not  auro  if  this  is  s  thooroticol  linguistic  insight 
;  or  o  hock  bolou  but  it  is  officiant: 

(  rol->connoctivo  ((rol  (typo  connoctiv*)]  ( connoc t i v* ) )  ( connect i 

;  "which” 


(  rol->connoctivo2  ((rol  (typo  1)) 

(connoctivs  (type  1)1 

f connoct i VO  ( typo  111)  (connect: 

;  "for  oxoaplo" 


IfOUlf  GROUPS 


I 


(  nl->neun 

"alcohol” 


((nl  (typo  1)  (gondor  3)1 
(noun  (count  2)  (typo  1)  (gondor  3)]) 


( noun )  ) 


(  nl->noun‘fneun 


((nl  (typo  1)  (gondor  3)1 
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(noun  (count  4)  (typo  5)  (gondor  4)] 

(noun  (count  2)  (typo  1)  (gondor  3)])  (noun)) 

;  "hoalophoro  rogion" 


(  nl->od jp<ottr>'fnl  (Inl  (typo  1)  (gondor  2)| 

[odjp  (typo  attributivo) ]  [nl  (typo  1)  (gondor  2))) 
(L  (and  (odjp  (nl  ) 

;  "alow  recognition" 


(  nl->adjp<oup>'tnl  (  (nl  (typo  1)  (gondor  2)] 

(adjp  (typo  ouporlatlvo) )  [nl  (typo  1)  (gondor  2)]) 
(L  (_K)  (and  (adjp  _x)  (nl  _x ) ) )  ) 

"biggor  foot" 


PREPOSITIONAL  PHRASES 


I 


(  pp->prop4-np  ((PPl 

( propoeition ]  (np  (count  1)  (parson  2)  (gondor  3)1) 
(propoeition  np)) 

:  "for  eoaprohonsion” 


(  pp->prop+np  ((ppj 

(proposition  (typo  1))  (proposition  (typo  1)] 
(np  (count  2)  (parson  3}  (gondor  4)]) 
(proposition  np)) 

;  "located  in  the  loft  occipital  lobe" 


(  pp>>prop-fnuskbor  ((pp) 

(proposition)  (number  (typo  1)]) 
(proposition  np) ) 

;  (a  tost  value)  "of  one” 


ADJECTIVE  PHRASES 


(  ad jp>> ad joctivo  ((adjp  (typo  1)1 

(adjoctivo  (typo  1)1) 
ad joctlvo ) 

;  "ill" 


(  Bdjp->adj4>adjp  ((adjp  (typo  D) 

(adjoctivo  (typo  1)1  (adjp  (typo  1)1) 

(L  (_x)  (and  (adjoctivo  _x )  (adjp  _x ) ) )  ) 

;  "right  parietal" 


to 


have 


I 


(  vp->havo+np  ( f vp  (count  1)  (person  2)  (tense  3)  (voice  acti  ei] 

(have-v  (count  1)  (tense  3)  (person  4>} 

[np  (count  5)  (person  6)  (gender  7)])  (have-v  np ) ) 

;  "has  the  gravest  condition” 


Adverbial  Phrases  and  Regular  Intransitivo/Transitivo  Verbs 


I 


(  vp->trans<fnp  ([vp  (count  1)  (person  2)  (tense  3)  (voice  active)) 

(trans  (count  1)  (tense  3)  (person  4)] 

(np  (count  5)  (person  6)  (gondor  7)])  (trans  np)) 


4 
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;  *coiit«ini  thr««  ragiona* 


(  vp->vp-fpp  ([vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  4)1 
(vp  (count  1}  (paraon  2)  (tanaa  3}  (voica  4)) 
IPPl  ) 

(L  (_a)  (L  (_a)  (and  ((vp  __a)  _k)  (pp  _a))))  ) 

;  "haa  a  pain  in  tha  haad* 


(  vp-'>lntrana  ( ( vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  activa)] 
(intrana  (count  1)  (tanaa  3)  (paraon  4)1) 

Int  rana ) 

"anoraa* 


(  vp->adv<fvp  ((vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  4)] 

( adva  rb ] 

(vp  (count  1)  (paraon  2)  (tanaa  3}  (voica  4))) 

(L  (_a)  (L  (_»)  (and  ((vp  _a)  )  (advarb  _a ) ) ) )  ) 

;  "quickly  aata" 


(  vp->vp-fadv  ((vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  4)) 

( vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  4)) 

( adva  rb ] ) 

(L  (_a)  (L  (_x)  (and  ((vp  _a )  _x )  (advarb  _a ) ) ) ) 

"aata  faat" 


) 


(  vp->trana4-prap-fnp  {[vp  (count  1)  (paraon  2)  (tanaa  3)  (voica  activa)] 
(trana  (count  1)  (tanaa  3)  (paraon  4)  (prop  5)1 
[prapoaition  ( typa  5)) 

(np  (count  6)  (paraon  p3)  (gandar  2))) 

(trana  (prapoaition  np))  ) 

,*  "bunpe  into  tha  wall* 


to  ba 


I 


;  drop  avant  variabla  from  copula  clauaa 

(  vp>>cepula4'adjp<attr>  ((vp  (count  1)  (parson  3)  (tanaa  2)  (voica  activa)] 
(copula  (count  1)  (tanaa  2)  (paraon  3)1 
(adjp  (typa  attributlva )  ) ) 

(L  (_a)  (L  (_x)  (adjp  _x) ) )  ) 

;  "ara  local"  "ia  viaual” 


;  traat  adj  varbing  as  pradtcata  and  plunk  In  front  of  tha  variabla  _x 

(  vp->copula>varbing  ((vp  (count  1)  (paraon  3}  (tanaa  2)  (voica  activa)) 

(copula  (count  1)  (tanaa  2)  (paraon  3)) 

(intrana  (count  4)  (tanaa  5}  (paraon  6)  (participla  ing)]) 
(L  (_a)  (L  (_x)  (intrana  _x ) ) )  > 

;"ia  dying"  "" 


;  incoaiplata  linguistic  traatnant 

(  vp->copula'fnp  ((vp  (count  1)  (paraon  3)  (tanaa  2)  (voica  activa)] 

(copula  (count  1)  (tansa  2)  (parson  3}] 

( np  (count  4)  (parson  5)  (gandar  6)|)  (L  ( _« )  (copula  np't 
;  "aa  tha  bast  doctor" 


(  vp->copulatpp  ((vp  (count  1)  (parson  3)  itansa  2)  (voica 

(copula  (count  1)  (tansa  2)  (parson  3)) 

[ pp I )  ( L  (_a I  ( L  I _x 1  ( pp 

;  "is  fron  tha  alcohol" 


(  vp<pa8>->copula<fv4’np(  ( vp  (count  1)  (paraon  3)  (tansa  2)  (voica  paasiva)] 

(copula  (count  1)  (tanaa  2)  (paraon  3)) 

(trana  (count  1)  (tansa  4)  (parson  5)  (fora  an)] 

(praposltlon  (typa  an)} 

(np  (count  6)  (parson  7)  (gandar  9)])  (L  (_•)  (copula  np )  )  ) 

;  "is  Indicatad  by  tha  coaprahanalon  taat" 


i 

i 


..Jkt, 


a 
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( a  rasa-diet iona ry )  ;  dafinad  in  nakadictionary 

imape  'naka-dictionary-antry  •{ 


NUMBERS 


I 


( ona 
( two 
( thraa 
( four 
(  f  iva 
I  six 
<  savan 
( aight 
( nina 
( tan 


(numbar 
(nunbar 
(nunbar 
<  nusiba  r 
( nunba  r 
( nunba  r 
( nu«ba  r 
( nunbar 
(numbar 
(numbar 


sing3p)  (laxical  raprasanta'.ion  of  numbar  1)  ona) 


plur  ) 

{ laxical 

raprasantation 

of 

numbar 

2) 

two  ) 

plur ) 

( laxical 

raprasantation 

of 

numbar 

3) 

thraa ) 

plur  ) 

( laxical 

raprasantation 

of 

numbar 

4) 

four ) 

plur  ) 

( laxical 

raprasantation 

of 

numbar 

5) 

five  ) 

plur  ) 

(laxical 

raprasantation 

of 

numbar 

6) 

six  ) 

plur ) 

(laxical 

raprasantation 

of 

numbar 

7) 

savan ) 

plur  ) 

( laxical 

raprasantation 

of 

numbar 

8) 

aight ) 

plur  ) 

( laxical 

raprasantation 

of 

numbar 

9) 

nina ) 

plur  ) 

( laxical 

representation 

of 

numbar 

10) 

tan ) 

PROPER  NOUNS 


I 


(mark  (propar-noun  singSp  masculina)  ma  mark) 
(michalla  (propar-noun  sing3p  faminina)  har  mich*ll«) 


VERBS 


**  tha  varb  "to  ba" 


( ba 

( varb 

copula 

sing 

pras 

pi) 

(I- 

P)  (L  ( 

WH) 

(  P  (L 

(  y) 

( equal 

_WH 

_y )  )  )  )  ) 

am ) 

(ba 

(varb 

copula 

sing3p  peas 

p3) 

P)  (L  ( 

_WH)  1 

1  P  (L 

(  y) 

{ aqua  1 

_WH 

_y )  »  )  )  ) 

is ) 

(ba 

( va  rb 

copula 

”plur 

pras  p3 ) 

(L  (_ 

P)  (L  ( 

JWH  )  ( 

1_P  (L 

i_y) 

( equal 

_y )  )  )  )  ) 

are) 

(hava 

( varb 

hava-v 

sing 

pras  pi )  (to  own 

or  posass )  hava ) 

(have 

(  va  rb 

hava-v 

plur 

pras 

pi) 

(to  own  or 

posass  ) 

ha  va  ) 

(hava  (varb  hava-v  sing3p  pras  p3)  (to  own  or  posass  -  irragular  3p  sing)  has) 
;  for  inta rpratat ion : 

(has  (varb  hava-v  singSp  pras  p3)  (to  own  or  posass  -  Irragular  3p  sing)  has) 

;  (contain  (varb  trans  1  pras  2)  (rastrictad  or  otharwisa  limitad)  contain) 
(contain  (varb  trans  plur  pras  p3)  (rastrictad  or  otharwisa  limitad)  contain) 
(contain  (varb  trans  slng3p  pras  p3 )  (rastrictad  or  otharwisa  limitad)  contain) 

(indicata  (varb  trans  1  pras  2)  (tailing)  indicata) 

(indicate  (varb  trans  singSp  pras  pi)  (tailing)  Indicata) 

(indicata  (varb  trans  plur  pras  p3 )  (tailing)  indicata) 

;  (function  (varb  trans  1  pras  2)  (tailing)  function) 

(function  (varb  trans  sing3p  pras  pi)  (tailing)  function) 

(function  (varb  trans  plur  pras  p3)  (tailing)  function) 

(suffer  (varb  trans  1  pras  from)  ;  ramovad  plur 
;  (L  (_np)  (L  (_a)  (L  {_WH)  (_np  (L  (_y)  (suffar  _WH  _y  _a ) ) ) ) ) )  suffer) 


NOUNS 


I 


Domain  Specific  Taxonomy 
;  Fault  Class  1 f ication/Sys tan  Components 


;  Capabilitias/Symptoms 


diet .kers 
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;  Fault  Diagnosis  Lexical  Entries 

(e'^'^mple  (nwur  ma-.^  1  n«"  mi)  exar.^le  exaiRple) 

(function  (noun  count  1  neuter)  function  function) 

(disorder  (noun  count  1  neuter)  disorder  disorder) 

(decision  (noun  count  1  neuter)  decision  decision) 

(diagnosis  (noun  count  1  neuter)  diagnosis  decision) 
(hunan  (noun  count  1  neuter)  human  human) 


Entity/Relationship  and  Frame  Knowledge  Representation  Lexis 


(entity  (noun  count  1  neuter)  entity  entity) 

(sub-class  (noun  count  1  neuter)  sub-class  sub-class) 

(value  (noun  count  1  neuter)  value  value) 

(damage  (noun  mass  1  neuter)  damage  damage) 

(importance  (noun  count  1  neuter)  importance  importance) 
(symptom  (noun  count  1  neuter)  symptom  symptom) 

(test  (noun  count  1  neuter)  test  test) 

(observation  (noun  count  1  neuter)  observation  observation) 


ADJECTIVES 


I 


(similar  (adjective  attributive)  similar  similar) 
(different  (adjective  attributive)  different  different) 
(relative  (adjective  attributive)  relative  relative) 

(slow  (adjective  attributive)  slow  slow) 

(fast  (adjective  attributive)  fast  fast) 


DETERMINERS  | 


7  •*  articles 

(a  (determiner  count  sing3p  indefart  notof  noneg  nonum)  (article  before  consonant) 
(an  (determiner  count  singSp  indefart  notof  noneg  nonum)  (article  before  vowel)  an) 
(the  (determiner  count  1  defart  notof  noneg  nonum)  (slng/plur  form  of  the)  the) 


PREPOSITIONS 


I 


(to  (preposition)  (toward  or  in  the  direction  of)  to) 
(in  (preposition)  (inner  or  Inward  location)  in) 

(with  (preposition)  (connection  or  associetion)  with) 
(from  (preposition)  (place  of  origin)  from) 

(of  (preposition)  (place  of  origin)  of) 

(foe  (preposition)  (indicating  purpose)  for) 

(located  (preposition  located-ln)  (located-in)  located) 
(in  (preposition  located-in)  (located-in)  in) 


PRONOUNS 


I 


(he  (pronoun  pers  singlp  subj  p3  mesrullne)  (male)  he) 

(she  (pronoun  pers  singBp  subj  p3  feminine)  (femele)  she) 

(it  (pronoun  pers  sing3p  subj  p3  neuter)  (a  thing)  it) 


(  they 

( pronoun 

pe  r  8 

plur 

subj 

p3 

neuter)  (a 

group 

of  others) 

they  ) 

(him 

( pronoun 

pers 

sing3p 

ob  j 

P3I 

(a  male  viewed  objectively) 

him ) 

( he  r 

( pronoun 

pers 

sing3p 

ob  j 

P3I 

(e  female  viewed 

1  objectively)  her) 

(it 

(pronoun 

pers 

singSp 

ob  j 

p3  ) 

(a  thing  viewed 

objectively ) 

it) 

( them 

( pronoun 

pers 

plur 

ob  j 

P3) 

(a  group  of 

others)  them) 

(his 

(pronoun 

poss 

singSp 

ob  j 

P3) 

( belonging 

to  a 

male  viewed 

objectively  )  his  ) 

( he  r 

( pronoun 

poss 

singSp 

ob  j 

P3) 

( belonging 

to  a 

female  viewed  objectively) 

he  r  } 

(its 

( pronoun 

poss 

9ing3p 

ob  j 

P3I 

(belonging 

to  a 

thing  viewed 

objectively) 

its  ) 

( thei  r 

( pronoun 

1  poss 

plur 

ob  j 

P3I 

(belonging 

to  a 

group  of  others)  their) 

;  (his  (pronoun  poss  singSp  subj  p3)  (belonging  to  a  male  viewed  subjectively)  his) 

;  (hers  (pronoun  poss  sing3p  subj  p3)  (belonging  to  e  female  viewed  subjectively)  hers) 

7  (its  (pronoun  poss  singSp  subj  p3)  (belonging  to  e  thing  viewed  subjectively)  its) 

;  (theirs  (pronoun  poss  plur  subj  p3)  (belonging  to  a  group  of  others)  theirs) 

**  relative  pronouns 

7  (that  (pronoun  rel)  (The  ball  that  is  red)  that) 

7  (who  (pronoun  rel)  (The  patient  who  died)  who) 

;  (which  (pronoun  rel)  (The  book  which  burned)  which) 

;  **  demonstrative  pronouns 
(this  (pronoun  demonstr  sing3p)  (this  book)  this) 

7  (that  (pronoun  demonstr  8ing3p)  (that  book)  that) 
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;  ( th«s«  (pronoun  doaonstr  plur)  (thoso  books)  thsss) 
;  (thoss  (pconoui*  Jomonstr  plui)  (thoss  books)  thoss; 


PUNCTUATION 


I 


(coasis  (coaas)  coaaa  coaaa ) 

(parlod  (psriod)  pariod  pariod) 

(colon  (colon)  colon  colon) 

( axe laaat ion-point  ( a xclaaat ion-point )  a xclaaat ion-point  axel aaat ion-point ) 
( quastion-aark  (guastion-aark )  quastion-aark  quast ion-aa rk ) 


CONJUNCTIONS 


(and  (conjunction  coord)  ( intaraaction )  and) 

(or  (conjunction  coord)  (union)  or) 

(but  (conjunction  coord)  (qualification)  but) 

;  (bafora  (conjunction  subord)  (pra-taaporal )  bafora) 

;  (aftar  (conjunction  subord)  (post-taaporal )  aftar) 

;  (bacausa  (conjunction  subord)  (causality)  bacausa) 

:  CONNECTIVES 

;  don't  know  whara  to  put  this: 

;;  (thara  (prenoun  pars  plur  subj  p3  nautar)  (thara  ara)  thara) 
(for  (connactiva  f or-axanpla )  for  for) 

(axaapla  (connactiva  for-axaspla)  axaapla  axaitpla) 

(instanca  (connactiva)  instanca  instanca) 

(tharafora  (connactiva)  tharafora  tharafora) 

(bacausa  (connactiva)  bacausa  bacausa) 

)  ) 


1 
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( araso-dict ionary )  ;  dafinad  in  nakadictionacy 

(nape  'naka-dlctlonary-antry  M 


NUMBEbS 


I 


( one 

(number 

slng3p)  (lexi 

ca 

( two 

(number 

plur ) 

( lexics 

1 

( threo 

(number 

plur ) 

( lexics 

1 

( four 

( number 

plur) 

( lexics 

1 

(flvo 

( number 

plur ) 

( lexics 

1 

(six 

(number 

plur ) 

( lexics 

1 

(seven 

(number 

plur) 

(lexics 

1 

( eight 

(number 

plur ) 

(lexics 

1 

(nine 

(number 

plur ) 

(lexica 

1 

( ten 

(number 

plur ) 

( lexica 

1 

)  ( lexical  representation  of  nunber  1)  one) 
ssentatlon  of  nunber  2)  two) 
aaentatlon  of  nunber  1)  three) 
esentation  of  number  4)  four) 
ssentatlon  of  nunber  5)  five) 
esentation  of  nunber  6)  six) 
ssentatlon  of  nunber  7)  seven) 
esentation  of  nunber  S)  eight) 
esentation  of  nunber  9)  nine) 
esentation  of  nunber  10)  ten) 


PROPER  NOUNS  | 


(nark  (proper-noun  slnglp  nasculine)  ne  nark) 

(nlchelle  (proper-noun  singlp  fenlnlne)  her  nlehelle) 

(korsakoffs  (proper-noun  singlp  neuter)  korsakoffs  korsskoffs) 
(huntingtons  (proper-noun  singlp  neuter)  huntingtons  huntingtons) 
(alsheiaers  (proper-noun  singlp  neuter)  alsheinere  alxhelners) 


VERBS 


;  *•  the  verb  "to  be" 


(be  (verb  copula  sing  pres  pi) 

(L  (  P)  (L  (^WH)  (_P  (L  (_y)  (egual  _wh  _y)))))  an) 

(be  (verF  copula'‘8lng3p  pres  p3 ) 

(L  (  P)  (L  (_WH)  (_P  (L  (_y)  (equal  _WH  _y)))))  is) 

(be  (verF  copula  plur  pres  p3T  ^ 

(L  (_P)  (L  (_HH)  (_P  (L  (_y)  (equal  _WH  _y ) ) ) ) )  are) 

(have  (verb  have-v  sing  pres  pi)  (to  own  or  posess)  have) 

(hove  (verb  have-v  plur  pres  pi)  (to  own  or  posess)  have) 

(have  (verb  have-v  sing3p  pres  p3)  (to  own  or  posess  -  irregular  3p  sing)  has) 

(contain  (verb  trans  plur  pres  p3)  (restricted  or  otherwise  United)  contain) 
(contain  (verb  trans  singSp  pres  p3)  (restricted  or  otherwise  United)  contain) 


(indicate  (verb  trans  plur  pres 

(indicate  (verb  trans  singSp  pres 

(function  (verb  trans  plur  pres 

(function  (verb  trans  singlp  pres 

(manifest  (verb  trans  singSp  pres 

(nade  (verb  trans  sing3p  past  pi) 


p3)  (telling)  indicate) 
pi)  (telling)  indicate) 

p3)  (telling)  function) 
pi)  (telling)  function) 

pi)  (evident)  manifest) 
(creating  or  performing)  made) 


(suffer  (verb  trans  1  pres  from) 
(L  (_np)  (L  (  e)  (L  (  WH ) 


(_np  (L  (_y)  (suffer  __WH  _y  _e  i  )  )  )  )  )  suffer 


NOUNS 


I 


;  Neurophysiology 

(organ  (noun  count  singSp  neuter)  (cell-based  functioning  sub  component)  organ) 
(brain  (noun  count  singSp  neuter)  region  brain) 

(hemisphere  (noun  count  singSp  neuter)  region  hemisphere) 

(left-hemisphere  (noun  count  singSp  neuter)  region  left-hemisphere) 
(right-hemisphere  (noun  count  sing3p  neuter)  region  right-hemisphere) 

(Ifrontel  (noun  count  sing3p  neuter)  lobe  left-f rontsl ) 
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(rfrontal  (noun  count  atn^Sp  noutorV  lobo  rloht-f rent • 1 ) 

(Ipaciotal  (noun  count  aln^Sp  noutor)  lobo  lot t-parlotal ) 

(cparlotal  (noun  count  alngip  noutor)  lobo  right>parlotal ) 

(laubeortox  (noun  count  slng3p  noutor)  lobo  loft-aubcortox ) 

(raubeortox  (noun  count  Bing3p  noutor)  lobo  rlght-oubcortox ) 

(Itonporal  (noun  count  slng3p  noutor)  lobo  lof t-tonporal ) 

(rtonporal  (noun  count  alng3p  noutor)  lobo  rlght-tonporal ) 

(locclpital  (n'^un  count  slngip  noutor)  lobo  lof t-occlpltal ) 

(rocclpltal  (noun  count  alnglp  noutor)  lobo  rlght-occipital ) 

(■)(ull  (noun  count  1  noutor)  (cranial  containor  and  protoctor)  skull] 

(body  (noun  count  1  nout^")  body  body) 

(rogion  (noun  count  1  noutor)  loglon  rogion) 

(lobo  (noun  count  1  noutor)  lobo  lobo) 

;  capabilltios/synptons 

(notor-rosponso  (noun  naes  1  noutor)  notor-roaponso  notor-rosponso } 

(vision  (noun  mass  1  noutor)  vision  vision) 

(sonsatlon  (noun  naas  1  noutor)  sonsatlon  sonsatlon) 

(stability  (noun  mass  1  noutor)  stability  stability) 

( stablllty'>dotoctloo  (noun  naas  1  noutor)  stablllty-dotoction  stablllty-dotoctlon ) 

(control  (noun  naas  1  noutor)  control  control) 

(nonory  (noun  nass  1  noutor)  nonory  atonory) 

(naalng  (noun  aass  1  noutor)  naalng  naalng) 

(instability  (noun  naas  1  noutor)  Instability  instability) 

(porsonallty  (noun  aass  1  noutor)  porsonality  poraonality) 

( aox>actl vity  (noun  nass  1  nout*  soxual*-activity  soxual-activity ) 

( foaturo-rocognition  (noun  nass  1  noutor)  function  foaturo-rocognition ) 

( gostalt-undorstandlng  (noun  naas  1  noutor)  function  gostalt-unuorstanding } 

(Itttraporaonal'bohavior  (noun  nass  1  noutor)  intraporsonal-bo)>avlor  Int raporsonal-boliavio r ) 
( undorstandlng  (noun  nass  1  noutor)  consclousnoss  undorstandlng ) 

(languago  (noun  nass  1  noutor)  language  language) 

(conprohonslon  (noun  nass  1  noutor)  conprohonsion  ronpro)\onsion ) 

(nontal-control  (noun  nass  1  noutor)  nontal'-cont  rol  nontal-^control ) 

( innodiato*-roeall  (noun  nass  1  noutor)  innodiato-rocall  innodiata-rocall ) 

(uiaeonsin  (noun  nass  1  noutor)  Wisconsin  Wisconsin) 

( l*cog-f loxibl 11 ty  (noun  naas  1  noutor)  l*-cog-floxiblllty  lof t-cognl ti vo-f lokibl 1 1 ty ) 

(  r*-cog-f  loxibillty  (noun  naas  1  noutor)  r-cog->f  ioxibility  right'cognitlvo^f  loxibility ) 

(n-n  (noun  nass  1  noutor)  n*n  n>a) 

(n^n'porsovoration  (noun  nass  1  noutor)  n~n<^porBovoration  n*>n>-por8ovoration ) 

(loops  (noun  nass  1  noutor)  loops  loop) 

( loops-porsovoratlon  (noun  aass  1  noutor)  loops-porsovoration  loops-porsovoration ) 

(stn  (noun  naas  1  noutor)  stn  s)iort«torn-aonory ) 

(drawings  (noun  nass  1  noutor)  drawings  drawings) 

(scribbles  (noun  naas  1  noutor)  scribbles  acribbloa) 

(pencil  (noun  count  1  noutor)  pencil  pencil) 

(construction  (noun  naas  1  noutor)  construction  construction) 

(oxaaplo  (noun  nass  1  noutor)  oxaaplo  oxanplo) 

(history  (noun  count  1  noutor)  history  history) 

(function  (noun  count  1  noutor)  function  function) 

(location  (noun  count  1  noutor)  location  location) 

(instrunont  (noun  count  1  noutor)  instrunont  instruaont) 

(disorder  (noun  count  1  noutor)  disorder  disorder) 

(failure  (noun  count  1  noutor)  failure  failure) 

(decision  (noun  count  1  noutor)  decision  decision) 

(diagnosis  (noun  count  1  noutor)  diagnosis  decision) 

(evaluation  (noun  count  1  noutor)  evaluation  evaluation) 

(faally  (noun  count  1  noutor)  fanily  faaily) 

(patient  (noun  count  1  noutor)  patient  pationt) 

(doctor  (noun  count  1  noutor)  doctor  doctor) 

(boy  (noun  count  1  siascullno)  boy  boy) 

(girl  (noun  count  1  foninino)  girl  girl) 

(huisan  (noun  count  1  noutor)  huiian  hu«on) 

(house  (noun  count  1  noutor)  house  house) 

;  disorders 

(global  (noun  ■ass  1  noutor)  global  global) 

(focal  (noun  aass  1  noutor)  focal  focal) 

(aanoslc  (noun  aass  1  noutor)  aanosic  sanosic) 

(aulti'^lnfarct-doaontis  (noun  aass  1  neuter)  aul  t  i-inf  a  rct-deaent  ia  mul  t  i -inf  a  r  c  <: -dpmpnt  i  >  ' 
(oneophalitis  (noun  aass  1  neuter)  encephalitis  encephalitis) 

( sovoro-hoad-trsuaa  (noun  aass  1  neuter)  severe-head-trauma  seve re-head- t rauma ) 

(alcohol  (noun  aass  1  noutor)  alcohol  alcohol) 

(toxicity  (noun  aass  1  noutor)  toxicity  toxicity) 

(falting  (noun  aass  1  noutor)  faking  faking) 

(subcortical  (noun  aass  1  noutor)  subcortical  subcortical) 

(gonoties  (noun  aass  1  noutor)  genetics  genetics) 

(origin  (noun  aass  1  noutor)  origin  origin) 

(hypor-aetivity  (noun  aass  1  noutor)  hypor-activity  hyper-activity) 

(gonotic-history  (noun  aass  1  noutor)  genetic-history  genetic-history) 

(chorea  (noun  aass  1  noutor)  chorea  chorea) 

(jitters  (noun  aass  1  noutor)  jitters  jitters) 

(sta-good-iq  (noun  aass  1  noutor)  sta-good-iq  aoaery-iq) 

(apathetic  (noun  aass  1  noutor)  apathetic  apathetic) 

(dlsintorost  (noun  aass  1  noutor)  disintorost  dlsintorost) 
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(ana*  (noun  count  1  noutor)  nnao  nnao) 

(clnsn  (noun  count  1  noutor)  elnsa  clooo) 

(•ub'‘Closs  (noun  count  1  noutor)  oub^clooo  oub-clooo) 

(typo  ;noun  count  1  noutor)  typo  typo) 

(ddn  (noun  count  1  noutor)  ddo  ddo) 

(ontity  (noun  count  1  noutor)  ontity  ontity) 

(voluo  (noun  count  1  noutor)  voluo  voluo) 

(likolihood  (noun  count  aln^Sp  noutor)  llkollbood  likoli):ood) 

(rooult  (noun  count  oingSp  noutor)  rooult  rosult) 

(doBop*  (noun  aoos  slnpSp  noutor)  doaopo  doaopo) 

(iaportonco  (noun  count  1  noutor)  iaportonco  iaportanco) 

(oyaptoa  (noun  count  plur  noutor)  oyaptoa  oyaptoa) 

(toot  (noun  count  plur  noutor'  toot  toot) 

(obflorvotion  (noun  count  plur  noutor)  oboorvotion  oboorvotion) 

(obflorvotlon-elosa  (noun  count  plur  noutor)  oboorvotlon-clooo  oboorvotlon-closs ) 

( dioordor-cloao  (noun  count  plur  noutor)  dioordor-clooo  dioordor-closs ) 

(stoto  (noun  count  slnp3p  noutor)  stoto  ototo) 

(cotopory  (noun  count  olnplp  noutor)  cotopory  cotopory) 

(oyaptoa  (noun  count  olnpSp  noutor)  oyaptoa  oyaptoa) 

(toot  (noun  count  olnpSp  noutor)  toot  toot) 

(oboorvotion  (noun  count  olnp3p  noutor)  oboorvotion  oboorvotion) 

( oboorvotion'>clooo  (noun  count  olnpSp  noutor)  oboorvotlon-cloos  obsocvotlon-class ) 
(dloordor-clooo  (noun  count  olnpSp  noutor)  dioordor-clooo  dioordor-cloBS ) 


ADJECTIVES  ] 


Ifiailor  (odjoctlvo  ottributivo)  olallor  olailor) 

(dlfforen^  fodjoctivo  ottributivo)  difforont  dlfforont) 

(rolotivo  (odjog.i^'o  ottributivo)  rolotlvo  rolotivo) 

(loft  (odjoctlvo  ottritut.' VO)  loft  loft; 

( rlpht  (odjoctlvo  ottributivo)  ripht  ripht) 

(copnltlvo  (odjoctlvo  ottributivo)  copnitivo  copnitivo) 

(porvooivo  (odjoctlvo  ottributivo)  porvooivo  porvoslvo) 

(local  (odjoctlvo  ottributivo)  local  local) 

(ponotic  (odjoctlvo  ottributivo)  ponotic  ponotic) 

(lotorol  (odjoctlvo  ottributivo)  latorol  lotorol) 

(quick  (odjoctlvo  ottributivo)  quick  quick) 

(poroonol  (odjoctlvo  ottributivo)  poreonol  porsonol) 

( uncontrol loblo  (odjoctlvo  ottributivo )  uncontrol loblo  uncontrol lablo ) 

(donopod  (odjoctlvo  ottributivo)  doaopod  doaopod) 

(alow  (odjoctlvo  ottributivo)  slow  slow) 

(foot  (odjoctlvo  ottributivo)  fast  foot) 

(drunk  (odjoctlvo  ottributivo)  drunk  drunk) 


OETEENINBRS  I 


f  ••  orticloo 

(o  (dotorainor  count  sinp3p  indofort  notof  nonop  nonua)  (orticlo  boforo  consonant)  o) 

(on  (dotorainor  count  oinpSp  indofort  notof  nonop  nonua)  (orticlo  boforo  vowol)  on) 

(tho  (dotorainor  count  1  dofart  notof  nonop  nonua)  (oinp/plur  fora  of  tho)  tho) 


PREPOSITIONS  ( 


(to  (proposition)  (toward  or  In  tho  diroction  of)  to) 
(in  (proposition)  (Innor  or  inward  location)  in) 

)  (with  (proposition)  (connoctlon  or  oaoociotion)  with) 

(froB  (proposition)  (ploco  of  origin)  froa) 

(of  (proposition)  (ploco  of  origin)  of) 

(for  (proposition)  (Indlcotinp  purposo)  for) 

t  ;  cenjoinod  propositions 

(locotod  (proposition  locotod-in)  (locatod-in)  locatod) 
(in  (proposition  locatod-in)  (locotod-in)  in) 

»  ;  vorbol  porticloo 

(in  (proposition  on)  (contoinod-in )  in) 

(by  (proposition  on)  ( indicatod-by )  by) 


PRONOUNS  I 


(ho  (pronoun  pars  oinpSp  subj  p3  aaoculino)  (aolo)  ho) 

(oho  (pronoun  pars  sinp3p  subj  p3  foainino)  (foaolo)  oho) 

(it  (pronoun  pars  olnpJp  subj  p3  noutor)  (*  thing)  it) 

(thoy  (pronoun  pors  plur  subj  p3  noutor)  (a  group  of  othors)  thoy) 

(hia  (pronoun  pors  sinpSp  obj  p3)  (a  aolo  viowod  objsetivoly)  hia) 
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(h«r  (pronoun  port  aingSp  obj  p3) 
(it  (pronoun  poia  aingSp  obj  p3) 
(thoa  (pronoun  pors  plur  obj  p3) 


(n  foBolo  viowod  objoctivoly)  h«r) 
(n  thing  viowod  objoctlvoly)  it) 

(n  group  of  othors)  thoa) 


(bis  (pronoun  poss  singlp  obj  p3) 
(hor  (pronoun  post  sing3p  obj  p3) 
(its  (pronoun  poss  sing3p  obj  p3) 
(tholr  (pronoun  poss  plur  obj  p3) 


(bolonging  to  s  aslo  viowod  objoctlvoly)  his) 
(bolonging  to  s  foaslo  viowod  objoctlvoly)  hsr) 
(bolonging  to  s  thing  viowod  objoctlvoly)  its) 
(bolonging  to  o  group  of  othors)  tholr) 


(his  (pronoun  poss  alnglp 
(hors  (pronoun  poss  slng3p 
(its  (pronoun  poss  slng3p 
(thoirs  (pronoun  poss  plur 


subj  p3) 
subj  p3) 
subj  p3) 
subj  p3) 


(bolonging  to  o 
(bolonging  to  o 
(bolonging  to  s 
(bolonging  to  s 


nolo  viowod  sub joctivoly )  his) 
foaslo  viowod  sub joct i voly }  hors) 
thing  viowod  .ub joctivoly )  its) 
group  of  othors)  thoirs) 


;  **  rolotlvo  pronouns 

(that  (pronoun  rol)  (Tho  ball  that  is  rod)  that) 
(who  (pronoun  rol)  (Tho  patlont  who  diod)  who) 
(which  (pronoun  rol)  (Tho  book  which  burnod)  which) 


**  doaonstratlvo  pronouns 
(this  (pronoun  doaonstr  sing3p)  (this  book)  this) 

(that  (pronoun  doaonstr  singlp)  (that  book)  that) 

(thoaa  (pronoun  doaonstr  plur)  (thoso  books)  thasa) 

(thoa#  (pronoun  doaonstr  plur)  (those  books)  those) 


PURCTOATIOU 


(coaaa  (coaaa)  coaaa  coaaa ) 

(period  (period)  period  period) 

(colon  (colon)  colon  colon) 

(akclaaat lon-point  ( axclaaat ion-point )  oxcl ana t ion-point  axclaast ion-point ) 
( quastion-aack  (quastion-aark  )  quastion-aark  quastlon-aark ) 


CORJUHCTIONS 


(and  (conjunction  coord)  ( intarsactlon )  and) 

C-ir  (eonjunctfon  coord)  (union)  or) 

(but  (conjunction  coord)  (qualification)  but) 

(bafors  (conjunction  subord)  (pra-taaporaX )  before) 

(after  (conjunction  subord)  ( post-taaporal )  after) 

(because  (conjunction  subord)  (csusslity)  because) 

CONNECTIVES 

;  there  pronoun  treated  as  a  connective,  unsure  of  syntactic  analysis 
(there  (pronoun  pars  plur  subj  p3  neuter)  (there  are)  thsre) 

(for  (connective  for-exsaple)  for  for) 

(exaaple  (connective  for-exaaple)  exsaple  exeaple) 

(instance  (connective)  instance  inatance) 

(therefore  (connective)  therefore  therefore) 

(because  (connective)  because  because) 

)  ) 
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;  I 

moduli:  neuropsycholooist  pramb  kvowledob  base  I 

PURP08B:  To  ropronsont  atructur*!  knowlodgo  of  tho  donain.  I 

OWNBR:  copywrlt*  Mark  T.  Maybury«  July.  1987.  I 

Dovalopod  froa  Maybury  and  Wolaa.  1999.  I 

RIPBRENCB:  Knowladga  Structuraa  froa  (Minsky.  19751  fraao  raprasontation  ( 

foraallsa.  I 

;  I 
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://////////////////////////////////////////////////////////////////////////// 


BRA1N_RB  contains  a  aodal  of  tha  brain  which  is  organisad  as  a  hiararchy. 
It  is  brokan  down  into  laft  and  right  haaispharas  which  ara  furthar 
Bubdividad  into  local  lobaa.  Bach  loba  has  associatad  conditions  (tha 
childran  fraaa)  which  ara  prasant  whan  thara  is  daaaga  in  that 
particular  loba.  Tha  sibling  franas  of  aach  of  thasa  conditions, 
furtharaora.  ara  danons  which  calculata  a  probability  fron  11  to  -f  1 . 
Thasa  danons  ara  tast  rasults  or  profassional  obsarvations  which 
indicata  tha  prasanca  or  absanca  of  tha  parant  condition. 


(construct-frana~kb  ' ( 

(hunan  (supar-class  (valua  nil))  ;  or  organ 

(sub-class  (brain  haart  lungs  disordar)) 

(typa  (valua  body)))  ;  or  ragion  or  objact 

(brain  (supar-class  (valua  human)) 

(sub-class  (valua  laf t-hani sphara  right-haaisphara ) ) 

(typa  (valua  ragion)) 

( dda  (valua  (location  skull  hunan)  (function  undarstanding  }  )  ) 

(inportanca  (valua  10)) 

( danaga  ( valua  5  ) )  ) 

( laft-hanisphara 

(supar-class  (valua  brain)) 

(sub-class  (valua  Ifrontal  Ipariatal  Isubcortax 

Itanporal  1 occipital ) ) 

(typa  (valua  ragion)) 

(dda  (valua  (location  brain  laft)  (function  f satuia-racogni t ion  )  )  ) 

(inportanca  (valua  10)) 

( danaga  ( valua  3  ) ) ) 

( right-hanisphara 

(supar-class  (valua  brain)) 

(sub-class  (valua  cfrontal  rpariatal  rsubcortsx 

rtanporal  roccipital )  ) 

(typa  (valua  ragion)) 

(dda  (valua  (location  brain  right)  (function  gastalt-undarstandlng )  )  ) 

(Inportanca  (valua  10)) 

(danaga  (valua  7))) 

(Ifrontal  (supar-class  (valua  laft-hanisphara)) 

(sub-class  (valua  nantal-control  1-cog-f laxibi lity 

r-hani-paralysis  languaga  conprahansion 
nagativa-nood  novanant  writing)) 

(dda  (valua  (location  hanisphara  laft)  (function  control))) 

(typa  (valua  loba)) 

(inportanca  (valua  5)) 

( danaga  ( valua  4  )  )  ) 

{ 1-cog-f laxibility  (supar-class  (valua  Ifrontal)) 

(sub-class  (valua  m-n  m-n-persa var a t ion 

loops  loops-parsavaration 
Wisconsin  ) 

(  inportanca  111111  in 
(dda  (valua  (function  control  cogniti'  a)  )  ' 

(typa  (valua  symptom)) 

(inportanca  (valua  3)} 

(danaga  (valua  8))) 

(supar-class  (valua  1-cog-f laxibi 1 ity )  ) 

(typa  (valua  obsarvation ) ) 

(dda  (valua  (function  drawings  n-n ) 

(instrunant  pancil))) 

(danaga  (valua  5})) 

tion  (supar-class  (valua  1-cog-f laxibi lity ) ) 

(typa  (valua  obsarvation)) 

(dda  (valua  (function  acribblas  n-n) 

(instrunant  pancil))} 


(n-n 


(n-n-p< 
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(v«lu«  7)M 

(loops  (supsr-clsss  (valus  l-cog-f Isxibil i ty ) ) 

(typs  (vsluo  obssrvstion } ) 

(dds  (vslus  (function  drawings  loop) 

(Instruiiant  pancil))) 

(daaago  (valuo  9))) 

( loopa'psrssvs rat  ion  (supac-clasa  (vaLua  l-cog-f laxlbillty ) ) 

(typa  (valua  obaarvstion) ) 

( dda  (valua  (function  scribblas  loops) 

(instrunant  pancil))) 

(danaga  (valua  6))) 

(Wisconsin  (supar-class  (valua  l-cog-f laxlbility 

r-cog-f laxlbility ) ) 

(typa  (valua  obsarvation ) ) 

(dda  (valua  (function  building  housa))) 

( danaga  ( valua  9 ) } ) 

(aantal-control  (aupar-clasa  (valua  Ifrontal)) 

(sub-class  (valua  ianadiata-racall } 

( inportanca  1 ) } 

(typa  (valua  sysiptoa)) 

(dda  (valua  (function  stability  nanory))) 

(inportanca  (valua  6)) 

(daaaga  (valua  2 ) ) > 

( insiadiata-racall  (supar-class  (valua  nantal-cont rol )  ) 

(typa  (valua  last)) 

(dda  (valua  (function  avaluation  sta})) 

(daaaga  (valua  4 ) ) ) 

(Ipariatal  (supar-class  (valua  laf t-haalsphara ) ) 

( sub-class  (valua  ga rstaann-syndroaa  l-constructional- dyspraxia 
raading-coap  aphasia)) 

(typa  (valua  loba)) 

(dda  (valua  (location  haaisphara  laft)  (function  stotoc-rasponsa )  )  } 

(iaportanca  (valua  3)) 

(daaaga  (valua  4  )  )  ) 


(Isubcortax  (supar-class  (valua  laf t-hanisphara ) ) 

(sub-class  (valua  short-tara-aaaory  right-body-control  )  ) 

(typa  (valua  loba)) 

(dda  (valua  (location  haaisphara  lowai  nil  laft)  (function  sansation}) 

) 

(iaportanca  (valua  5)) 

(daaaga  (valua  2))) 

(Itaaporal  (supar-class  (valua  laf t-haaisphara ) ) 

(sub-class  (valua  naaing  instability)) 

( typa  ( valua  loba  )  ) 

(dda  (valua  (location  haaisphara  lataral  nil  nil  laft)  (function  langus 

ga )  )  ) 

(iaportanca  (valua  8)) 

(daaaga  (valua  3)>) 

(naaing  (supar-class  (valua  Itaaporal)) 

(sub-class  (valua  bos-naaa) 

( iaportanca  1 ) ) 

(typa  (valua  eyaptoa) ) 

(dda  **  Svalua  (function  feilura  aaaory))) 

(iaportanca  (valua  10)) 

(daaaga  (valua  2))) 

;dafinad  abova  in  aphasia 

(inatabllity  (supar-class  (valua  Itaaporal)) 

(sub-class  (Valua  parsonality  sax-activity) 

< iaportanca  1  1 ) ) 

(typa  (valua  symptom)) 

(dda  (valua  (function  control  parsonal))* 

(imnortanca  (valua  10)) 

(damaga  (valua  4 ) ) ) 

(parsonality  (supar-class  (valua  instability)) 

(typa  (valua  obsarvation)) 

(dda  (valua  (function  stability-dataction )  (locati 

on  patiant ) ) ) 

(isiportanca  (valua  10)) 

(damaga  (valua  4))) 

( aax-acti vity  (aupar-clasa  (valua  instability)) 

(typa  (valua  obaarvat ion ) ) 

(dda  (valua  (function  intraparsonal-bahavior  )  )  ) 

(importanca  (valua  10)} 

(damaga  (valua  4)}) 
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(loccipital  (8up*r-cla86  (V8lu8  I*f t-h*Aleph«r« ) ) 

(sub-class  (valua  right-blindnass M 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  vision))) 

(importanca  (valua  3)) 

(daaaga  (valua  2))) 

(rfrontal  (supar-class  (valua  right-hamisphara ) ) 

(sub-class  (valua  l-hani-paralysls  r-constructional-dyspraxia 

positiva-aood  r-cog-f laxiblllty  )  ) 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  comprahans ion  )  )  ) 

(importanca  (valua  10)) 

(daaaga  (valua  7))) 

(rparlatal  (supar-class  (valua  right-hamisphara ) ) 

(sub-class  (valua  naglactful)) 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  motor-rasponsa )  )  ) 

(iaportanca  (valua  10)) 

(damaga  (valua  7))) 

(rsubcortax  (supar-class  (valua  right-hamisphara)) 

(sub-class  (valua  visual-stm  laf t-body-cont rol )  ) 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  sansation))) 

(Importanca  (valua  10)) 

(damaga  (valua  7))) 


(rtamporal  (supar-class  (valua  right-hamisphara ) ) 

(sub-class  (valua  no-facial-racognition) ) 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  languaga))) 

(importanca  (valua  10)) 

( damaga  (valua  7  )  )  ) 

(roccipital  (supar-class  (valua  right-hamisphara)) 

( sub-class  (valua  laf t-blindnass ) ) 

(typa  (valua  loba)) 

(dda  (valua  (location  skull  human)  (function  vision)}) 

(importanca  (valua  10)) 

( damaga  (valua  7 ) ) ) 

(dloordar  (supar-class  (valua  brain)) 

(sub-class  (valua  global  focal  amnasic)) 

(typa  (valua  catagory)) 

(dda  (valua  (function  avaluatlon  patiant))) 

(importanca  (valua  10)) 

(damaga  (valua  8})) 

(global  (supar-class  (valua  disordar)) 

(sub-class  (valua  multi-infarct-damantia  ancaphalitis  alehaimars 
savara-haad-trauma  alcohol  toxicity  faking)) 
(typa  (valua  disordar-class ) ) 

(dda  (valua  (function  damaga  parvasiva)  (location  brain))) 

(importanca  (valua  10)) 

(damaga  (valua  9))) 

(focal  (supar-class  (valua  disordar)}  ;FOCAL 

(sub-class  (valua  frontal  haad-trauma  stroka 
tumor  damyalination ) ) 

(typa  (valua  disordar-class)) 

(dda  (valua  (function  damaga  local)  (location  lobe))' 

(importanca  (valua  10)) 

(damaga  (value  3))) 


(huntingtons  (supar-class  (value  frontal))  .’GENETIC  {rAPFNT"-’ 

(sub-class  (value  subcortical  genetics  hy pe v - ac t i  ■  i  t y  '  ' 

(typa  (value  disorder)  i 

(dda  (value  (instrument  origin  genetii-*  'location  -  nh-r. 

)  ) 

(importance  (value  1)) 

(damaga  (valua  3))) 

(ganatics  (supar-class  (valua  huntingtons)) 

(sub-class  (valua  ganatic-hi story) 

( importanca  1 )  } 

(typa  (valua  obsarvation-class ) } 

(dda  (valua  (function  history  disordar)  (location  family))) 

(importanca  (valua  4)) 

(damaga  (valua  2))) 


( ganatic-history  (supar-class  (valua  ganatics)) 
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(vnlua  obsarvatton) I 
(danaga  (valua  7) ) ) 


(bypar-activlty 

(valua  huntingtons ) ) 

( Bupar-elaas 

( sub-class 

(valua  choraa) 

(laportanca  1)) 

(typa 

Idda 

(valua  obsarvatlon-clasB ) ) 

(valua  (function  aovaaant  uncont rollabla ) ) ) 

( laportanca 

(valua  5)) 

( daaaga 

(valua  3))> 

(choraa  (supar-class 
( dda 

(valua  hypar-activity ) ) 

(valua  (function  dancing  uncontrollabla ) 

(Inatruaant  jittars  )  ) ) 

(typa 

(valua  obsarvation)) 

(daaaga 

(valua  7) ) } 

<  annaaic 


r 


(  aupar-^claaa 
( aub-claas 
(typa 
(dda 

( lapo  rtanca 
(daaaga 


<valua  disordar) ) 

(valua  koraakoffa)} 

(valua  dlaordar-claaa ) ) 

(valua  (function  danaga  aaaory) 
( valua  10 ) ) 

(valua  8 )  M 


(location  brain))) 


(koraakoffa  (aupar-claaa 
( aub-claaa 

(typa 

(dda 

( laportanca 

( daaaga 


(valua  eta) ) 

(valua  ata-good~iq  apathatic) 
(laportanca  1  D) 

(valua  disordar)) 

(valua  (inatruaant  naaory))) 

( valua  8 ) ) 

(valua  9 ) ) ) 


( ata-good-iq 

( aupar-class 

(dda 

(typa 

(laportanca 

(daaaga 

(apathatic 

( supar-claas 

(dda 

Uypa 

( laportanca 

( daaaga 


(valua  kocsakoffs}) 

(valua  (function  aaaory  quick))) 
(valua  obsarvation) ) 

(valua  4)) 

(valua  9 ) ) ) 

(valua  korsakoffs)) 

(valua  (function  dislntarast ) I ) 
(valua  obsarvation}) 

(valua  2)) 

(valua  10) ) ) 


) 

i 


)  ;  closa  frana  list 
)  }  elosa  «aka  frana  kb 


r 


i 
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BRAIN^KB.LSP  contains  a  nodal  of  tha  brain  which  is  organised  aa  a 
hierarchy.  It 

is  broken  down  into  left  and  right  henispherea  which  are  further  sub¬ 
divided  into  local  lobes.  Bach  lobe  has  associated  conditions  (the 
children  frane)  which  are  present  when  there  is  danage  in  that 
particular  lobe.  The  sibling  frames  of  each  of  these  conditions, 
furthermore,  are  demons  which  calculate  a  probability  from  -1  to  •fl. 
These  demons  are  test  results  or  professional  observations  which 
indicate  the  presence  or  absence  of  the  parent  condition. 


(construct-f rame-kb  '( 

(brain  (super-class  (value  organ)) 

(sub-class  (value  left-hemisphere  right-hemisphere)) 
(type  (value  region)) 

(Importance  (value  1))) 

( left-hemi sphere 

(super-class  (value  brain)) 

(sub-class  (value  Ifiontal  Iparietal  Isubcortes 

Itemporal  locclpital)) 

(type  (value  region)) 

(importance  (value  1))) 

(right -hemisphere 

(super-class  (value  brain)) 

(sub-class  (value  rfrontal  rparietal  rsubcortex 

rtemporal  roccipital)) 

(type  (value  region)) 

(importance  (value  1))) 


(Ifrontal  (super-class  (value  left-hemisphere}) 

(sub-class  (value  r-hemi-paraly sis  language  comprehension 
negative-mood  movement  1-cog-flexibility 
mental-control  writing) } 

(type  (value  region)) 

(importance  (value  1))) 


( r-hemi-paralysis  (super-class  (value  Ifrontal}) 

(sub-class  (value  right-finger  face-walk) 

( importance  1  1 ) ) 

(type  (value  symptom)) 

(importance  (value  1))) 

(super-class  (value  r-hemi-paralysis  )  > 

(type  (value  observation))) 

(super-class  (value  r-hemi-paralysis)) 

(type  (value  observation))) 

(language  (super-class  (value  Ifrontal)) 

(sub-class  (value  bos-name-no-cues 

bos-name -perseveration 
f as-generat ion  f as-persaveration 
written-difficulty  vocab) 
(importance  111111)) 

(type  (value  symptom)) 

(importance  (value  1))) 

(bos-name-no-cues  (super-class  (value  language)) 

(type  (value  test))) 

(boa-name-peraeveration  (super-class  (value  language)) 

(type  (value  tes t )  )  ) 

(  faa-generation  (super-class  (value  language  1 -cog- f  1  ex  i  bi  1 1 

(type  (value  test)]) 

( fas-pereaveration  (super-class  (value  language  1-cog-f lexibi  1  i  t v 
(type  (value  observation)') 

(written-difficulty  ( super -cl ass  (value  language)) 

(type  (value  observation))) 

(vocab  (super-class  (value  language)) 

(type  (value  test))) 

(comprehension  (super-class  (value  Ifrontal)) 

(sub-claaa  (value  verbal-abstract-reasoning 
similarities ) 

( Importance  1  1 ) ) 

(type  (value  symptom)) 

(importanco  (value  1))) 

( verba l-abstract-reaaening  (super-class  (value  comprehension  )  ) 

(type  (value  test))) 


( right-finger 
( face-walk 
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( slBllarltlaB  (supar-clasB  (valu*  coaprahonsion )  ) 

(typa  (valua  taat)M 

( nagatlva-aood  (aupar-class  (valua  Ifrontal)) 

<8ub-claaa  (valua  dapraaaion) 

( iaportaaca  1 ) ) 

(typa  (valua  ayaptoa) > 

(iaportanca  (valua  IM) 

(dapraaaion  (aupar-claaa  (valua  nagativa-aood ) ) 

(typa  (valua  obaarvation ) ) > 

(aovaaant  (aupar-claaa  (valua  Ifrontal)) 

(aub-claaa  (valua  alow) 

( laportanca  1 ) ) 

(typa  (valua  ayaptoa)) 

(laportanca  (valua  1))) 

(alow  (aupar-claaa  (valua  aovaaant ) ) 

(typa  (valua  obaarvation ) ) } 

(l-cog~flaxibility  ( aupar-claas  (valua  Ifrontal)) 

(aub-claaa  (valua  a-n  a-n-paraavaration 

loops  loopB-parsavaration 
f aa-ganaratlon  faa-pacaavaration 
wiaconain ) 

(laportanca  1111111)) 

(typa  (valua  ayaptoa)) 

(laportanca  (valua  1))} 


(a-n  (aupar-claaa  (vpiua  1-cog-f laxiblllty  )  ) 

(typa  (valua  obaarvation))) 

( a-n-paraavaratlon  (aupar-claaa  (valua  1-cog-f laxibi 1 Ity  )  ) 
(typa  (valua  obaarvation))) 

(loops  (aupar-class  (valua  1-cog-f laxibll ity ) ) 

(typa  (valua  obaarvation))) 


( loops-parsavaration  (aupar-class  (valua  1-cog-f laxiblllty  )  ) 
(typa  (valua  obaarvation))) 

: fas-ganaratlon  daflnad  abova  in  languaga 

( f as-parsavaratlon  (supar-claas  (valua  1-eog-f laxiblllty ) ) 

(typa  (valua  obaarvation))) 

(wiaconain  (aupar-claaa  (valua  1-cog-f laxibility 

r-eog-f laxiblllty ) ) 
(typa  (valua  obaarvation))) 

(■antal-eontrol  (aupar-claaa  (valua  Ifrontal)) 

(aub-claaa  (valua  inaadiata-racall ) 

( laportanca  1 ) ) 

(typa  (valua  ayaptoa)) 

(laportanca  (valua  1))) 

( iaaadiata-racall  (aupar-clasa  (valua  aantal-control ) ) 

(typa  ( valua  tast )  )  ) 

(writing  (aupar-claaa  (valua  Ifrontal)) 

(aub-claaa  (valua  fluancy  graaaar  aaquanclng 


lattar-f ora ) 
(laportanca  1  1  1  1)) 

(typa  (valua  ayaptoa)) 

(laportanca  (valua  1})} 

(fluancy  (aupar-claaa  (valua  writing)) 

(typa  (valua  obaarvation))) 

(graaaar  (aupar-claaa  (valua  writing  aphasia)) 

(typa  (valua  obaarvation))) 

(aaquanclng  (aupar-class  (valua  writing)) 

(typa  (valua  obsarvation  )  )  ) 

(lattar-forn  (supar-class  (valua  writing)) 

(typa  (valua  obsarvation)  I  ) 


(Ipariatal  (aupar-class  (valua  laft-hamisphara ) ) 

(sub-class  (valua  garstmann-syndroma  l-constructional-dyspv&y. 

raading-comp  aphasia)) 

(typa  (valua  ragion)) 

(laportanca  (valua  1))) 

(garataann-syndrona  (aupar-claas  (valua  Ipariatal)) 

(sub-class  (valua  f ingar-agnoaia  laf t-right-confusION 

dy acalculia  dyagraphia ) 

(laportanca  1  1  1  1)) 

(typa  (valua  ayaptoa)) 

(laportanca  (valua  1)}) 

( f ingar-agnoaia  (aupar-claaa  (valua  garataann-ayndroaa ) ) 

(typa  (valua  tast))) 

( laf t-right-confuaion  ( aupar-class  (valua  garataann-ayndroBa ) ) 
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<typ*  <v«lu«  observation))) 

(dyacslculla  (supor-class  (valuo  ^orstBann-ayndroaa )  ) 

(typo  (value  observation))) 

(dysfraphia  (super-claas  (value  ^erstaann-syndroae ) ) 

(type  (value  observation))) 

( 1-const  rue t Iona 1 -dyspraxia 

(super-class  (value  Iparietal)) 

(sub-class  (value  drawings  blocks  block-details) 
(iaportance  111)) 

(type  (value  syaptoa)) 

(iaportance  (value  1))) 

(super-class  (value  l-constructional-dyspraxia ) ) 
(type  (value  observation))) 

(super-class  (value  l-constructional-dyspraxia  )  ) 
(type  (value  observation))) 

(super-class  (value  1-constructional-dyspraxia)) 
(type  (value  observation))) 


( drawings 
( blocks 

( block-details 


( reading-coap 


(super-class 
( sub-class 

(type 

( iaportance 


(value  Iparietal)) 

(value  dyslexia  oral-reaaing ) 
( iaportance  1  1 } ) 

(value  syaptoa)) 

(value  1} ) ) 


(dyslexia  (super-class  (value  reading-coap)) 

(type  (value  observation))) 

(oral-reading  (super-class  (value  reading-coap)) 

(type  (value  observation))) 

(aphasia  (super-class  (value  Iparietal)) 

(sub-class  (value  bos-naae  bos-naaa-paraphasia 
neoiogisas  graanar  syntax) 
(iaportance  11111)) 


(typ« 

(value 

syaptoa) ) 

(iaportance  (value 

1))) 

( bos-naae 

( super-class 

(value 

aphasia  naaing ) ) 

(type 

( value 

test ) ) ) 

(euper-cleee 

( value 

language ) ) 

(typ« 

(value 

observation ) ) ) 

(neologisaa 

(auper-cleas 

(value 

aphaaia ) ) 

(type 

( value 

obaarvation) ) ) 

;graaaar  defined  above 

1  in  writing 

( syntax 

(super-cless 

(value 

aphaaia ) ) 

(typ» 

(value 

obaarvation ) ) } 

(Isubcortex  (super-class  (value  left-heai sphere ) ) 

( sub-class  (value  short-tera-aeaory  right -body-control )  ) 
(type  (value  region)) 

(iaportance  (value  1))) 


( short-tera-aeaory 

(super-class  (value  Isubcortex)) 

(sub-class  (value  digits  logical-aeaory  pai red-associateS  ) 
(iaportance  111)) 

(type  (value  syaptoa)) 

(iaportance  (value  1))) 


(digits 

( super-cless 

(value 

short-tera-aeaory) ) 

(type 

(value 

test )  ) ) 

( logical-aeaory 

(euper-claes 

(value 

short-tera-aeaory) ) 

(type 

(value 

test) ) ) 

(paired-associates 

(super-cless 

(value 

short-term-meaory) ) 

(typo 

(value 

test ) ) ) 

( right-body-control 

( super-class 
( sub-class 

(type 

( iaportance 


(value  Isubcortex)) 

(value  right-dominant-finger) 
(  iaportance  1 )  ) 

(value  syaptoa)) 

<  value  1 ) )  ) 


( right-doa inant- finger  (super-class  (value  right -body- control ) ) 
(type  (value  observation))) 

(Iteaporal  (super-class  (value  left-healsphere) ) 

(eub-claea  (value  neaing  instebility } ) 

(type  (value  region)) 

(iaportance  (value  1))) 


(neaing 


( super-claee 
( sub-clasB 

(type 


(value  Iteaporal)) 
(value  boe-neae) 
(iaportance  1)) 
(value  syaptoa)) 


) 
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(iaportancn  (vnlu*  1))) 

;4«fin«d  abov«  la  nphnnln 

(instability  (supar-class  (valua  Itamporal)) 

(aub-claas  (valua  paraaaality  sax-activity > 

(iapartanca  1  1)) 

(typa  (valua  syaptou)) 

(iuportanca  (valua  1))) 

(parsonality  (aupar-claas  (valua  instability)) 

(typa  (valua  obaarvation ) ) ) 

(sax-activity  (aupar-elasa  (valua  instability)) 

(typa  (valua  obsarvat ion ) ) ) 

(locclpital  (supar-class  (valua  laf t-hauisphara ) ) 

(sub-class  (valua  rlght-bllndnass ) ) 

(typa  (valua  raglan)) 

(iuportanca  (valua  1))) 

( rlght-bllndnass  (supar-class  (valua  locclpital)) 

(sub-class  (valua  r-blindnass) 

( iuportanca  1 ) ) 

(typa  (valua  syuptou)) 

(iuportanca  (valua  1)}) 

(r-blindnass  (supar-class  (valua  right-blindnass )  ) 

(typa  (valua  obaarvation))) 

(rfrontal  (supar-class  (valua  right-haaisphara } ) 

(sub-class  (valua  l-haui-paralyaia  i-constructional-dyspraxia 

posit iva-uood  r-cog-flaxibility) ) 

(typa  (valua  ragion)) 

(iuportanca  (valua  1))) 

(l-haui-paralysls  (supar-class  (valua  rfrontal)) 

(sub-class  (valua  laft-fingar) 

(iuportanca  1)) 

(typa  (valua  syuptou)) 

(iuportanca  (valua  1})) 

(laft-fingar  (supar-class  (valua  1-haui-paralysia  )  ) 

(typa  (valua  obaarvation))) 

( t-constructional-dyspraxla 

(supar-class  (valua  rfrontal)) 

(sub-class  (valua  axplodad  saparata-bloelcs 
pictura-uisar rangauant 
pussla-dif f iculty  pattarn-uatching  ) 

( iuportanca  11111)) 

(typa  (valua  syuptou)) 

(iuportanca  (valua  1))) 

(axplodad  (supar-class  (valua  r-constructional-dyspraxia  )  ) 

(typa  (valua  obaarvation))) 

( saparata-blocks  (supar-class  (valua  r-constructional-dyspraxia  )  I 

(typa  (valua  obaarvation))) 

(pictura-uisarrangauant  (supar-class  (valua  r-constructional-dyspraxia)) 
(typa  (valua  obsarvat ion )) ) 

(pussla-diff iculty  (supar-class  (valua  r-constructional-dyspraxia)) 

(typa  (valua  obaarvation))) 

(pattarn-uatching  ( supar-class  (valua  r-const  ruct  j  onal-dyspraxia  )  ) 

(typa  (valua  obaarvation))) 

( posit! va-uood  (supar-class  (valua  rfrontal)) 

(sub-class  (valua  alation) 

( iuportanca  1 ) ) 

(typa  (valua  syuptom)) 

(Iuportanca  (valua  1))) 

(alation  (supar-class  (valua  pos i t i va-mood  )  ) 

(typa  (valua  obsa rva t ion  )  >  ' 

(r-cog-flaxibility  (supar-class  (valua  rfrontal)) 

(sub-class  (valua  Wisconsin) 

( iuportanca  1 ) ) 

(typa  (valua  syuptou}) 

(iuportanca  (valua  1))) 

;dafinad  abova  in  1-cog-f laxibi 1 ity 

(rpariatal  (supar-clasa  (valua  right-hauisphara ) } 

(aub-clasa  (valua  naglactful)) 

(typa  (valua  ragion)) 

(iuportanca  (valua  1))) 
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(nnglnctful  (•up«r-clas«  (vnlu*  rparlntnl)) 

(«ub*>clnsB  (valun  n*gl*ctt>l«f  t-ip*c*  ) 
(inpottanc*  1}) 

<typ«  (valu*  ayapton)) 

(lapertanca  {valu*  1))) 


(naglacta-laft-spaca  (aupac-claaa  (valua  naglactful) ) 

(typa  (valua  obaarvation ) ) ) 

(raubcortaa  (aupar-clasa  (valua  right-haaiaphara n 

(aub-claaa  (valua  viaual-ata  laft-body-control) ) 

(typa  (valua  ragion)) 

(iaportanca  (valua  1))) 

(viaual-ata  (aupar>-claaa  (valua  raubcortax}) 

(aub-claaa  (valua  uaa-dalay  viaual-raproductlon  banton) 
(iaportanca  111)) 

(typa  (valua  ayaptoa) ) 

(iaportanca  (valua  1))) 

(uaa-dalay  (aupar-claaa  (valua  viaual-ata)) 

(typa  (valua  taat )  )  ) 

( viaual-raproduction  (aupar-claaa  (valua  viaual-ata)) 

(typa  (valua  taat)  )  ) 

(banton  (aupar— claaa  (valua  viaual-ata)) 

(typa  (valua  taat))) 

( laf t-body-control 

(supar-claaa  (valua  raubcortax)) 

(aub-claaa  (valua  laf t-doainant-f ingar ) 
i iaportanca  1 ) ) 

(typa  (valua  ayaptoa)) 

(iaportanca  (valua  1))) 

( laf t-doainant-f ingar  (aupar-claaa  (valua  laft-body-control )  ) 
(typa  (valua  obaarvation))) 

(rtaaporal  (tupar-elass  (valua  right-haaisphara ) ) 

(aub-claaa  (valua  no-f acial-raeogni t ion  ) ) 

(typa  (valua  ragion)) 

(iaportanca  (valua  1))) 

(no-f aclal-iacognit ion 

(aupar-claaa  (valua  rtaaporal)) 

(aub-elaaa  (valua  ailnar-facial-racognitien) 

( iaportanca  1 ) ) 

(typa  (valua  ayaptoa)) 

(Iaportanca  (valua  1))) 

(allnar-f acial-racognition 

(aupar-claaa  (valua  no-f acial-racognition  )  ) 
(typa  (valua  taat))) 

(rocclpital  ( aupar-claaa  (valua  rlght-haniaphara ) ) 

(aub-claaa  (valua  laf t-blindnaaa ) ) 

(typa  (valua  ragion)) 

(iaportanca  (valua  1))) 

(laf t-blindnaaa  (aupar-claaa  (valua  roccipital)) 

(aub-claaa  (valua  l-blindnaaa) 

( iaportanca  1 ) ) 

(typa  (valua  ayaptoa)) 

(iaportanca  (valua  1))) 

(l-blindnaaa  (supar-class  (valua  laf t-blindnass ) ) 

(typa  (valua  observation))) 

)  ;cloaa  arguaant  list 

)  ;cloaa  COKSTFUCT-rRAME-KB 
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DISORDER  K8.LSP  is  th«  knowlsdgs  bss*  which  contains  s  hisrsrchisl 

orgsnTistioa  of  organic  brain  diaordars.  Disorders  ara  broken  down  into 
general  types  (i.e.  Oiobal,  Focal,  or  Annesie)  which  are 

further  sub-divided  into  specific  disorders,  each  of  which  is  tested  for 
probability  by  checking  the  associated  teats  or  observations  which  are 
children  of  the  particular  disorder  frane. 


(CORSTRUCT-PRAMB-KB  M 

(DISORDER  (SUPER-CLASS  (VALUE  BtL) ) 

(SUB-CLASS  (VALUE  GLOBAL  FOCAL  AMBBSXC)) 

(TYPE  (VALUE  MBTA-PRANB)) 

(IMPORTARCB  (VALUE  1))> 

(GLOBAL  (SUPER-CLASS  (VALUE  DISORDER)) 

(SUB-CLASS  (VALUE  MULTI-IBPARCT-DBMBMTXA  BRCBPHALITIS  ALEHBIHBRS 
SBVERB-H8AD-TRAUMA  ALCOHOL  TOXICXTY  PAKXRQ)) 
(TYPE  (VALUE  DISORDER-CLASS ) ) 

(IMPORTANCE  (VALUE  1))) 


(HULTI-IRPARCT-DBMENTIA 

(SUPBR-CLAS?  (VALUE  GLOBAL)) 

(SUB-CLASS  (VALUE  IRSTANT) 

(IMPORTARCB  1)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

( ENCEPHALITIS ( SUPER-CLASS  (VALUE  GLOBAL)) 

(SUB-CLASS  (VALUE  DAYS) 

(IMPORTANCE  1)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

( ALZHEIMBRS 

(SUPER-CLASS  (VALUE  GLOBAL)) 

(SUB-CLASS  (VALUE  HONTHS-YEARS  SBVERE-LTM-DAMAGE ) 

(IMPORTANCE  11)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(SBVERE-LTM-DAMAGE 

(SUPER-CLASS  (VALUE  ALZHEXMERS  SEVERE-READ-TRAUMA  ALCOHOL)) 
(TYPE  (VALUE  OBSERVATION )) ) 

( SEVERB-HEAD-TRAUNA 

(SUPER-CLASS  (VALUE  GLOBAL)) 

(SUB-CLASS  (VALUE  INSTANT  SEVERE-LTM-DAHAOE  ACCirENT) 
(IMPORTANCE  111)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1})) 

(ACCIDENT 

(SUPER-CLASS  (VALUE  SEVERE-HBAD-TRAUNA  HEAD-TRAUMA)) 

(TYPE  (VALUE  OBSERVATION))) 

(ALCOHOL 

(SUPER-CLASS  (VALUE  GLOBAL))  ;IS  THIS  SEVERE-LTM  OR  NOT??? 
(SUB-CLASS  (VALUE  NORTHS-YEARS  SEVERE-LTM-DAHAOE  ALCOHOLIC) 

(IMPORTANCE  111)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(ALCOHOLIC 

(SUPER-CLASS  (VALUE  ALCOHOL)) 

(TYPE  (VALUE  OBSERVATION))) 

(TOXICITY  (SUPER-CLASS  (VALUE  GLOBAL)) 

\ SUB-CLASS  ( VALUE  CHEMI CAL- EXPOSURE ) 

(IMPORTANCE  1)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

( CHEMICAL-EXPOSURE 

(SUPER-CLASS  (VALUE  TOXICITY)) 

( TYPE  (VALUE  OBSERVATION ) ) ) 

;IS  FAKING  ASSOCIATED  WITH  ONLY  GLOBAL  DIFFICULTY? 

(FAKING  (SUPER-CLASS  (VALUE  GLOBAL)) 

(SUB-CLASS  (VALUE  FARTRQ-IT) 

(IMPORTANCE  1)) 

(VALUE  DISORDER)) 


(TYPE 
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( IMPOBTIOICC  ( VALUS  1  M  ) 

(PAKIBO-IT 

(StIPBK-CLASS  iVALUB  PAXINO)) 

(TYPC  (VALUB  098KXVATIOM) ) ) 

;Z8  ALCOHOL  A  BBPIHBMBHT  OP  TOXICITY  OH  18  IT  STHICTLY  GLOBAL  DISOROCR 

(INSTANT  (SUPER-CLASS  (VALUE  MULTZ-INPARCT-DBMBNTIA  SBVBRB-HEAO-TRAUMA 

TOXICITY  HEAD-TRAUMA  STROKE  ) ) 

(TYPE  (VALUE  OBSERVATION ) M 

(DAYS  (SUPER-CLASS  (VALUE  ENCEPHALITIS  PICKS)) 

(TYPE  (VALUE  OBSERVATION) ) ) 

(NONTHS-YBARS 

(SUPER-CLASS  (VALUE  ALEREIMBRS  MORMAL-PRESSURE-HYDROCEPHALUS 
SUPRANUCLEAR-PALSY  ALCOHOL)) 

(TYPE  (VALUE  OBSERVATION)}} 

(POCAL  (SUPER-CLASS  (VALUE  DISORDER))  ;fOC«l 

(SUB-CLASS  (VALUE  PRONTAL  HEAD-TRAUMA  STROKE 
TUMOR  DBMYBLINATION) ) 

(TYPE  (VALUE  DISORDER-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(HEAD-TRAUMA  (SUPER-CLASS  (VALUE  POCAL)) 

(SUB-CLASS  (VALUE  INSTANT  MINOR-LTM-DAMAGE  ACCIDENT) 

( IMPORTANCE  111)} 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(HZNOR-LTH-DAMAQE 

(SUPER-CLASS  (VALUE  HEAD-TRAUMA)) 

(TYPE  (VALUE  OBSERVATION))) 

(STROKE  (SUPER-CLASS  (VALUE  POCAL)) 

(SUB-CLASS  (VALUE  INSTANT) 

(IMPORTANCE  D) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(TUMOR  (SUPER-CLASS  (VALUE  POCAL)) 

(SUB-CLASS  (VALUE  TUMOR-EVIDENCE)  :on8*t  cottlO  bft  Blow  or  rftpid 
(IMPORTANCE  1)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(TUMOR-EVIDENCE 

(SUPER-CLASS  (VALUE  TUMOR)) 

(TYPE  (VALUE  OBSERVATION)}) 

(DENYELINATION 

(SUPER-CLASS  (VALUE  POCAL))  :onBBt  could  b*  slow  or  rapid 

(SUB-CLASS  (VALUE  DEMYBLINATZON-EVIDBNCE ) 

( IMPORTANCE  1 ) ) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

( DEMYELINATION-BVIDENCE 

(SUPER-CLASS  (VALUE  DENYELINATION)) 

(TYPE  (VALUE  OBSERVATION))) 

(PRONTAL  (SUPER-CLASS  (VALUE  POCAL)) 

(SUB-CLASS  (VALUE  PICKS  PARKINSONS  HUNTINGTONS 

NORMAL-PRBSSURE-HYDROCEPHALU3  SUPRANUCLEAR-PALSY) ) 
(TYPE  (VALUE  DISORDER-CLASS)} 

(IMPORTANCE  (VALUE  1))) 

(PICKS  (SUPER-CLASS  (VALUE  PRONTAL)) 

(SUB-CLASS  (VALUE  DAYS  BI-rRONTAL>  ;bi-fiontal 

(IMPORTANCE  I  1)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(BI-FRONTAL  (SUPER-CLASS  (VALUE  PICKS)) 

(SUB-CLASS  (VALUE  LEPT-PRONTAL  RIGHT-PRONTAL) 

(IMPORTANCE  1  1)) 

(TYPE  (VALUE  OBSERVATION-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(LEPT-PRONTAL 

(SUPER-CLASS  (VALUE  BI-PRONTAL) > 

(TYPE  (VALUE  OBSERVATION))) 

(RIGHT-PRONTAL 

(SUPER-CLASS  (VALUE  BI-PROffTAL )  ) 

(TYPE  (VA1.UB  OBSERVATION))) 


;PRORTAL-SUB-CORTICAL  with  aovwMnt  dlsordwr  to  dlf forantista 
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(PARKINSONS  (SOPBK-CLASS  (VALUE  FRONTAL))  ;tr*Bor 

(SUB-CLASS  (VALUE  SUBCORTICAL  ¥RBHOR) 

{ IMPORTANCE  11}) 

(TYPE  (VALUE  DISORDER)) 

( IMPORTANCE  ( VALUE  1 ) ) ) 

(SUBCORTICAL  (SUPER-CLASS  (VALUE  PARKINSONS  HUNTINOTONS 

NORMAL-PRESSURE-HYDROCEPHALUS 
SUPRANUCLEAR-PALSY) ) 

(SUB-CLASS  (VALUE  LEPT-SUBCORTEX  RIOHT-SUBCORTEX ) 
(IMPORTANCE  11)) 

(TYPE  (VALUE  OBSERVATION-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(LEPT-SUBCORTEX 

(SUPER-CLASS  (VALUE  SUBCORTICAL)) 

(TYPE  (VALUE  OBSERVATION) ) ) 

( RZOHT-SURCORTEX 

(SUPER-CLASS  (VALUE  SUBCORTICAL)) 

(TYPE  (VALUE  OBSERVATION))) 

(TREMOR 

(SUPER-CLASS  (VALUE  PARKINSONS}) 

(TYPE  (VALUE  OBSERVATION))) 

(HUNTINOTONS  (SUPER-CLASS  (VALUE  FRONTAL))  ;g*n*tic  (par«nts) 

(SUB-CLASS  (VALUE  SUBCORTICAL  OENETICS  HYPER-ACTIVITY)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(OENETICS  (SUPER-CLASS  (VALUE  HUNTINOTONS)) 

(SUB-CLASS  (VALUE  OENBTIC-HISTORY ) 

( IMPORTANCE  1 ) ) 

(TYPE  (VALUE  OBSERVATION-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(OENBlxC-HISTORY  (SUPER-CLASS  (VALUE  OENETICS)) 

(TYPE  (VALUE  OBSERVATION))) 

(HYPER-ACTIVITY 

(SUPER-CLASS  (VALUE  HUNTINOTONS)) 

(SUB-CLASS  (VALUE  CHOREA)  ) dancing 

(IMPORTANCE  1)) 

(TYPE  (VALUE  OBSERVATION-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(CHOREA  (SUPER-CLASS  (VALUE  HYPER-ACTIVITY}) 

(TYPE  (VALUE  OBSERVATION) ) ) 

(NORMAL-PRESSURE-HYDROCEPHALUS 

(SUPER-CLASS  (VALUE  FRONTAL)) 

(SUB-CLASS  (VALUE  SUBCORTICAL  OLOER-THAR-60  MONTHS-YSARS ) 
(IMPORTANCE  111)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(OLDBR-THAN-60 

(SUPER-CLASS  (VALUE  NORMAL-PRESSURE-HYDROCEPHALUS) ) 

(TYPE  (VALUE  OBSERVATION))) 

( SUPRANUCLEAR-PALSY 

(SUPER-CLASS  (VALUE  FRONTAL)) 

(SUB-CLASS  (VALUE  SUBCORTICAL  HONTHS-YEARS 
CAWNOT-MOVB-EYBS-UPMARD 
BLAHK-FACIAL-EXPRESSION) 

(IMPORTANCE  1111)) 

(TYPE  (VALUE  DISORDER)) 

(IMPORTANCE  (VALUE  1))) 

(CANNOT-KOVE-CYES-UPMARD 

(SUPER-CLASS  (VALUE  SUPRANUCLEAP-PALSY ) ) 

(TYPE  (VALUE  OBSERVATION))) 

(BLANK-FACXAL-EXPRESSION 

(SUPER-CLASS  (VALUE  SUPRANUCLEAR- PALSY ) ) 

(TYPE  (VALUE  OBSERVATION))) 


(AMNESIC  (SUPER-CLASS  (VALUE  DISORDER)) 

(SUB-CLASS  (VALUE  KOKSAKOFFS ) ) 

(TYPE  (VALUE  DISORDER-CLASS)) 

(IMPORTANCE  (VALUE  1))) 

(KOR8AKOFFS  (SUPER-CLASS  (VALUE  STM)) 

(SUB-CLASS  (VALUE  STM-OOOD-IQ  APATHETIC) 
(IMPORTANCE  1  1)) 

(TYPE  (VALUE  DISORDER)) 


4 
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UNPOSTAMCE  (VALUE  1)) 
(STM-QOOO>ZQ 

( SUPER-CLASS  (VALUE 
(TYPE  (VALUE 

(APATHETIC 

( S  UPER-CLASS  ( VALUE 
(TYPE  (VALUE 


)  ;elos«  par«a*t«r  Hat 
)  ;cloa«  COMTRUCT-PRAME-KB 


KORSKKOPPS ) ) 
OBSERVATION) ) ) 

KORSAKOrrS) } 
OBSERVATION) ) ) 


SECTION  12.3 


PHOTOGRAPHY  DICTIONARY  AND  KNOWLEDGE  BASE 


X 
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//////////////////////////////////////////////////////////////////////////// 

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\^\\\\\\\\\\ 


module: 

PUEPOSB: 

OWRER: 
FORMAT : 


PHOTOGRAPHY  LBXICOM 

To  oraso  any  currant  dictionary  and  load  in  a  laxicon  of 
photographic  tarninology. 

copywrlta  Mark  T.  Maybury,  July,  1987. 

<  tokan  syntax  sanatics  raallsation  > 


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ 
/////////////////////////////////////////////////// /////////////////////ll 


( ara8a~dictlonary )  ;  dafinad  in  nakadictionary 

(nape  'aaka^-dict Iona ry-ant  ry 

;  FORMAT:  <  syntax  sanatics  raalixation  > 


NUMBERS 


I 


( ona 

(nuabar 

aing3p)  (laxic< 

(two 

( nuabar 

plur ) 

( laxicsl 

( thraa 

( nuaba  r 

plur  ) 

( laxicsl 

( four 

( nuabar 

plur ) 

(laxicsl 

(flva 

( nuabar 

plur ) 

( laxicsl 

(six 

(nuabar 

plur ) 

( laxicsl 

( savan 

(nuabar 

plur ) 

( laxicsl 

( aight 

(nuabar 

plur ) 

( laxicsl 

(nina 

(nuabar 

plur  ) 

(laxicsl 

( tan 

(nuabar 

plur ) 

(laxicsl 

1  caprasantation 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 
raprasantation  of 


)f  nuabar  ! 

L )  ona ) 

nuabar 

2) 

two ) 

nuabar 

3) 

thras ) 

nuabar 

4) 

f  our ) 

nuabar 

5) 

flva  } 

nuaba  r 

6  ) 

six  ) 

nuabar 

7) 

savan ) 

nuabar 

8  ) 

aight ) 

nuabar 

9) 

nina  ) 

nuabar 

10  i 

1  tan  ) 

PROPER  NOUNS 


I 


(nark  (propar-noun  singlp  naseuXina)  na  nark) 
(nichaXXa  (propar-noun  singSp  faninxna)  har  nichalXa) 


VERBS 


I 


;  **  tha  varb  "to  ba" 


(ba 

(varb  eopuls 

sing 

pras 

pi) 

(ba 

(L  (  P)  (L  (. 
(varE  copuls' 

^WH)  (_P  (L 
8lng3p  pros 

(_y) 

p3) 

( aqusl 

(L  (_P)  (L  (^ 

_^WH )  ( 

[  P  (L 

(  y) 

( aqusl 

(ba 

(varb  copula 

plur 

pras  p3) 

(L  (_P)  (L  (, 

_WH )  1 

[_P  (L 

(_y) 

( aqusl 

(hsva 

(varb  hsva-v 

sing 

pras  p2 )  (to  own 

(hsva 

( varb  hsva-v 

plur 

pras 

pi) 

(to  owi 

(hava  (varb  hava-v  slngSp  pras  p3)  (to 


_WH  _y ) ) ) ) )  an) 

_WH  _y ) ) ) ) I  is) 

_WH  _y)))))  ara) 

r  posaas)  hava) 
or  potass)  hava) 

n  or  posass  -  irragular  3p  sing)  has) 


(contain  (varb 
(contain  (varb 

(indicata  (varb 
(indicata  (varb 

(function  (varb 
(function  (varb 


trans  plur  pras 
trans  oing3p  pras 

trans  8ing3p  pras 
trans  plur  pras 

trans  slnglp  pras 
trans  plur  pras 


p3)  (rastrlctad 
p3 )  ( rastrlctad 

pi)  (tailing) 
p3)  (tailing) 

pi)  (tailing) 
p3 )  (tailing) 


or  otharwisa 
or  otharwisa 

indicata ) 
indicata ) 

function  ) 
function ) 


linitad)  contain) 
liaitad)  contain) 


NOUNS 


I 


;  Photographic  Fault  Class! f icat ion/Cquipment 

(fornat  (noun  count  singSp  nautar)  fornat  format) 

(location  (noun  count  singSp  nautar)  location  location) 

(procass  (noun  count  sing3p  nautar)  procass  procass) 

(art  (noun  count  singSp  nautar)  art  art) 

(art-fora  (noun  count  slngSp  nautar)  art-fora  art-fora) 

(visual  (noun  count  slngSp  nautar)  visual  visual) 

(iaagas  (noun  aass  slng3p  nautar)  iaagas  iaagas) 

(aguipaant  (noun  aass  slngSp  nautar)  aqulpaant  aquipaant) 
(taehniqua  (noun  aass  slngJp  nautar)  tachniqua  tachniqua) 

(styla  (noun  aass  sing3p  nautar)  styla  styla) 

( illuaination  (noun  aass  slng3p  nautar)  illualnation  i 1 lualnat ion ) 


photo. diet 
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(light  (noun  count  alngSp  noutor)  light  light) 

(intensity  (noun  noun  sing3p  noutor)  intensity  intensity) 

(lighting  (noun  osss  sing3p  neuter)  lighting  lighting) 

(tripod  (noun  count  singip  neuter)  tripod  tripod) 

(csners  (noun  count  singSp  neuter)  csoere  csaers) 

(legs  (noun  count  plur  neuter)  legs  legs) 

(subject  (noun  count  aing3p  neuter)  subject  subject) 

(body  (noun  count  sing3p  neuter)  body  csnere^body) 

(filn-winder  (noun  count  singSp  neuter)  filo-winder  filn-windet) 

(shutter  (noun  count  singip  neuter)  shutter  shutter) 

(casing  (noun  count  singip  neuter)  casing  casing) 

(lens  (noun  count  singSp  neuter)  lens  lens) 

(diaphran  (noun  count  singip  neuter)  diaphram  diaphran) 

(optical-lens  (noun  count  singip  neuter)  optical-lens  optical-lens) 

(controls  (noun  count  plur  neuter)  controls  controls) 

(aperture  (noun  count  singip  neuter)  aperture  aperture) 

(focal-distance  (noun  count  singip  neuter)  focal-distance  focal-distance) 

(filn  (noun  mass  singip  neuter)  filn  film) 

(asa  (noun  count  singip  neuter)  asa  asa) 

(filn-color  (noun  count  singip  neuter)  (color  or  b/w)  filn-color) 

(filn-type  (noun  count  singip  neuter)  (slide  or  print)  filn-type) 

(inage-type  (noun  count  singip  neuter)  (slide  or  print)  inage-type) 

(lighting  (noun  count  singip  neuter)  lighting  lighting) 

(no-flash  (noun  mass  singip  neuter)  no-flash  no-flash) 

(excess-sun  (noun  nass  singip  neuter)  excess-sun  excess-sun) 

(composition  (noun  count  singip  neuter)  composition  composition) 

(no-subject-balance  (noun  nass  singip  neuter)  ito-sub ject-balance  no-sub ject-balancs ) 
(bad-positioning  (noun  mass  singip  neuter)  bad-positioning  bad-camera-positioning) 
(operation  (noun  count  singip  neuter)  operation  operation) 

(settings  (noun  mass  plur  nauter)  settings  settings) 

(lens-cap  (noun  mass  singip  neuter)  lens-cep  lens-csp) 

(film-loading  (noun  nasa  singip  neuter)  film-loading  film-loading) 

(ragion  (noun  count  singip  nauter)  region  region) 

(expression  (noun  mass  singip  neutar)  sxpression  axprassion) 

(personal  (noun  mass  singip  neuter)  personal  parsonal) 

(exposure  (noun  mass  singip  neuter)  exposure  exposure) 

(setting  (noun  count  singip  neuter)  setting  setting) 

;  capabilities/symptons 

(photography  (noun  mass  singip  neuter)  photography  photography) 

(protection  (noun  mass  singip  neuter)  protection  protection) 

(light-pictures  (noun  mass  singip  neuter)  light-pictures  light-pictures) 
(dar)(-pictures  (noun  mass  singip  neuter)  daric-pictures  dBr)(-picture8 ) 

( lack-of-detail  (noun  mass  singip  neuter)  lack-of-detail  laek-of-detail ) 
(blurred-pictures  (noun  mass  singip  neuter)  blurred-pictures  blurred-pictures) 
(no-film-loaded  (noun  mass  singip  neuter)  no-f ilm-loaded  no-film-loaded) 

(example  (noun  mass  singip  neuter)  example  example) 

(medium  (noun  count  singip  neuter)  medium  medium) 

(object  (noun  count  singip  neuter)  object  object) 

(physical  (noun  mass  singip  neuter)  physical  physical) 

(component  (noun  count  singip  neuter)  component  component) 

(attribute  (noun  count  singip  neuter)  attribute  attribute) 

(existence  (noun  mass  singip  neuter)  existence  existence) 

(method  (noun  count  singip  neuter)  method  method) 

(wind-film  (noun  mass  singip  neuter)  wind-film  wind-film) 

(support  (noun  mass  singip  neuter)  support  support) 

( int roduce-1 ight  (noun  mass  singip  neuter)  introduce-iight  light-introduction) 
(focusing  (noun  mass  singip  neuter)  focusing  focusing) 

(manipulation  (noun  mass  singip  neuter)  manipulation  manipulation) 

(recording  (noun  mass  singip  neuter)  recording  recording) 

(impression  (noun  mass  singip  neuter)  impression  impression) 

(control  (noun  mass  singip  neuter)  control  control) 

(clarity  (noun  mass  singip  neuter)  clarity  clarity) 

(winding-spool  (noun  mass  singip  neuter)  winding-spool  winding-sp<^c>l  i 
(angle  (noun  count  singip  neuter)  angle  anglo) 

(black-white  (noun  nass  singip  neuter>  black-white  black-white) 

(color  (noun  nass  singip  nauter)  color  color) 

(infra-red  (noun  nass  singip  neuter)  infra-red  infra-red) 

(function  (noun  count  singip  neuter)  function  function) 

(Instrument  (noun  count  singip  neuter)  instrument  instrument) 

(disorder  (noun  count  singip  neuter)  disorder  fault) 

(fault  (noun  count  plur  nauter)  fault  fault) 

(fault  (noun  count  singip  neutar)  fault  fault) 

(failure  (noun  count  plur  neuter)  failure  failure) 

(failure  (noun  count  singip  neuter)  failure  failure) 

(decision  (noun  count  1  neuter)  decision  decision) 

(diagnosis  (noun  count  singip  neuter)  diagnosis  decision) 

(human  (noun  count  1  neuter)  human  human) 

(name  (noun  count  1  neuter)  name  name) 

(class  (noun  count  1  neuter)  class  class) 

(sub-class  (noun  count  1  neuter)  sub-clese  sub-class) 
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(typo  (noun  count  1  noutoc)  typo  typo) 

(ddo  (noun  count  1  noutor)  ddo  ddo) 

(doAogo  (noun  ■ass  singlp  noutor)  doaogo  daoogo) 

(ontity  (noun  count  singSp  noutor)  ontlty  ontity) 

(inportonco  (noun  count  oinglp  noutor)  Inportonco  inportonco) 

(obsorvotion  (noun  count  1  noutor)  obsorvation  obsorvatloni 
( oympton  (noun  count  1  noutor)  oynpton  oyoptoo) 

(t^8t  (noun  count  1  noutor)  tost  tost) 

(valuo  (noun  count  singlp  noutor)  valuo  valuo) 

(li)colihood  (noun  count  singSp  noutor)  lilcollhood  li)colihood} 

(rosult  (noun  count  8ing3p  noutor)  rosult  rosult) 


ADJECTIVES 


I 


(artificial  (noun  count  1  noutor)  artificial  artificial) 
(difforont  (adjoctlvo  attrlbutlvo)  difforont  difforont) 

(natural  (noun  count  1  noutor)  natural  natural) 

(physical  (adjsctivo  attribuCivo)  physical  physical) 

(rolatlvo  (adjoctlvo  attrlbutlvo)  rolativo  rolatlvo) 

(similar  (adjoctlvo  attrlbutlvo)  similar  similar) 

(visual  (adjoctlvo  attrlbutlvo)  visual  visual) 

(proclso  (adjoctiva  attributiva)  pracisa  pracisa) 

(alluminum  (adjactlva  attrlbutlva)  alluminum  allunlnum) 

(traditional  (adjactlva  attrlbutlvo)  traditional  traditional) 

( contamporary  (adjactlva  attrlbutlva)  contamporary  cont ampo ra ry ) 
(nouvaau  (adjactlva  attrlbutlva)  nouvaau  nouvaau) 

(no  (adjactlva  attrlbutlva)  no  no) 

(damagad  (adjactlva  attrlbutlva)  damagad  damagad) 

(slow  (adjoctiva  attrlbutlva)  slow  slow) 

(fast  (adjactlva  attrlbutlva)  fast  fast) 


DETERMINERS  | 


/  •*  articlos 

(a  (datormlnar  count  alnglp  indafart  notof  nonag  nonum)  (articla  bafora  consonant)  a) 

(an  ( data rmlno r  count  aing3p  Indafart  notof  nonag  nonum)  (artlclo  baforo  vewal)  an) 

(tho  (dotorminar  count  1  dofact  notof  nonog  nonum)  (sing/plur  form  of  tho)  tho) 


PREPOSITIONS 


I 


(to  (proposition)  (toward  or  in  tho  dlroction  of)  to) 
(on  (proposition)  (outor  location  or  on  top  of)  on) 

(in  (proposition)  (innor  or  inward  location)  in) 

(with  (proposition)  (connoctlon  or  association)  with) 
(from  (proposition)  (placa  of  origin)  from) 

(of  (proposition)  (placa  of  origin)  of) 

(for  (proposition)  (indicating  purposo)  for) 

(locatod  (proposition  locatod-in)  (locatod-ln)  locatod) 
(in  (proposition  locatod-in)  (locatod-in)  in) 


PRONOUNS 


( ha 

( pronoun 

pars 

singSp 

subj  p3 

(  sha 

( pronoun 

pars 

sing3p 

subj  p3 

(it 

( pronoun 

pars 

s  iiigSp 

subj  p3 

( thay 

(pronoun 

pars 

plur 

subj  p3 

(him 

( pronoun 

pars 

5ing3p 

obj  p3 ) 

( har 

( pronoun 

pars 

sing3p 

obj  p 3 ) 

(it 

( pronoun 

pars 

sing3p 

obj  p3 ) 

<  tham 

(pronoun 

pars 

plur 

obj  p3 ) 

mascullno)  (mala)  ha) 

fanlnina)  (female)  she) 

neuter)  (a  thing)  it) 

neuter)  (a  group  of  others)  thev' 

(a  male  vievred  ob  j  e  c  1 1  ^’e  1  y  )  him' 

(a  female  viev,’0(J  objectively'  h«i  ' 
(a  thing  viev.-ed  objectively!  it' 

(a  group  of  others)  them) 


(his  (pronoun  poss  sing3p  obj  p3) 
(her  (pronoun  poss  slng3p  obj  p3) 
(its  (pronoun  poss  slngSp  obj  p3) 
(tholr  (pronoun  poss  plur  obj  p3) 


(belonging  to  a  maJe  viewed  ob^ec  1 1 'e  1  y  :  h  i  ’ 
(belonging  to  a  female  viewed  objectively!  her) 
(belonging  to  a  thing  viewed  objectively'  its) 
(belonging  to  a  group  of  others)  their) 


(his  (pronoun  poss  sing3p  subj  p3)  (belonging  to  a  mala  viewed  sub jactivaly }  his) 

(hers  (pronoun  poss  singSp  subj  p3)  (belonging  to  a  female  viewed  subjectively)  hers) 

(its  (pronoun  poss  8ing3p  subj  p3)  (belonging  to  a  thing  viewed  subjectively)  its) 

(thaira  (pronoun  poss  plur  subj  p3 )  (belonging  to  a  group  of  othars)  theirs) 


;  **  relative  pronouns 

(that  (pronoun  ral)  (Tha  ball  that  is  rad)  that) 
(who  (pronoun  ral)  (Tha  patlant  who  diad)  who) 
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(which  (pronoun  rol )  (Tho  book  which  burnod)  which) 

;  **  doaonstrativo  pronouns 
(this  (pronoun  doaonstr  Mlngip)  (this  book)  this) 

(that  (pronoun  dononstr  einglp)  (that  book)  that) 

(thasa  (pronoun  daaonstr  plur)  (thasa  books)  thasa) 

(thosa  (pronoun  danonstr  plur)  (thosa  books)  thosa) 


PUNCTUATION  | 


(coana  (coana)  coaaa  coaaa) 

(pariod  (pariod)  parlod  pariod) 

(colon  (colon)  colon  colon) 

(axclaaation-'point  (axclaaatlon-point )  axclaaation-point  axclaaati on-point ) 
(guastlon-aark  ( quas t ion-aark )  quastion-aark  quastlon-aark ) 


CONJUNCTIONS  | 


(and  (conjunction  coord)  ( intarsaction )  and) 

(or  (conjunction  coord)  (union)  or) 

(but  (conjunction  coord)  (qualification)  but) 

(bafora  (conjunction  subord)  ( pra-taapora 1 }  bafora) 
(aftar  (conjunction  subord)  (post-taaporai )  aftar) 
(bacausa  (conjunction  subord)  (causality)  bacausa) 

;  CONNECTIVES 

(for  (connactlva  for-axaapla)  for  for) 

(axaapla  (conractiva  for-axaapla)  axaapla  axaapla) 

(Instanca  (connactlva)  instanca  instanca) 

(tharafora  (connactlva)  tharafora  tharafora) 

(bacausa  (connactlva)  bacausa  bacausa) 

)  ) 
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HODULB : 
PURPOSE : 
OWNER: 

RBPERBNCE: 


PHOTOORXPHY  PRXHB  BNOWLBDOE  BXSB 
To  ropronsont  knowlodg*  of  photography, 
copywrito  K«rk  T.  Haybury,  July,  1967. 

Spoclal  thanks  to  photographic  consultant  Nail  Ruaaal,  CUED. 
Knowladga  Structuraa  froa  (Minsky,  1975),  fraaa  raprasantation 
fotnallaa. 
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//////////////////////////////////////////////////////////////////////////// 


PHOTO. KB  contains  a  aodal  of  tha  photography  procass  brain  which  is 
orgsnlsad  as  a  hlararchy  of  faults.  Fault  diagnosis  is  brokan  down 
into  aguipnant  analysis,  tachnlgua  avaluation  and  atyla  invas t iga t ion . 
Each  of  thasa  araas  ara  aubjact  to  savaral  taats  or  obsarvations . 


KNOWLEDOE  RELXTIORSHZPS  fron  SLOTS 
supar/sub-clsss  slots  —  part/whola 
typa  slot  —  typa/instanca 
(nachanisns  for  inharitanca  of  propartias) 


(  cons  t  ruct-f  rana*>kb  '  ( 


(supar-class  (valua  nil)) 

(sub-class  (valua  photography  painting  sating}) 
(dda  (valua  (attributa  raqui ras-talant } ) ) 
(typa  (valua  procass))) 


( photography 


(aguipnant 


( tripod 


( lighting 


(body 


( f iln-wlndar 


( supar-class 

( valua 

axpraasion ) ) 

( sub-class 

(valua 

aguipnant  tachnigua  styla)) 

1  typ« 

(valua 

art-f orn) ) 

(dda 

(valua 

( inportanca 

(valua 

101) 

(danaga 

(valua 

S))) 

( supar-class 

(valua 

photography ) ) 

( sub-class 

( valua 

canara  lighting  tripod)) 

(typ« 

(valua 

fault) ) 

(dda 

(valua 

(instrunant  function  physical) 

(location  canara))) 

( Inportanca 

(valua 

3)  ) 

( danaga 

(valua 

W)  )  ) 

( supar-class 

( valua 

aguipnant ) ) 

( sub-class 

(valua 

nil)  ) 

<  typ» 

(valua 

instrunant ) ) 

(dda 

( valua 

(instrunant  lags  allunlnun) 

( inportanca 

( valua 

3)) 

( danaga 

(valua 

1) ) ) 

( supar-class 

( va lua 

aguipnant ) ) 

( sub-class 

( valua 

nil)) 

(typ. 

(valua 

instrunant } } 

(dda 

(valua 

(function  illunina t ion ) 

(location  Bubjact))) 

( Inportanca 

(valua 

5) ) 

(danaga 

(valua 

9  )  )  ) 

( supar-class 

(valua 

agu i pnan  c ) ) 

( sub-class 

( valua 

body  Ians  film) ) 

( typ« 

(valua 

instrunant ) ) 

(dda 

( va lua 

(function  images  recording!  (  e  >:  t  a  r  na  1  -  1 i  n 

( Inportanca 

( valua 

9  )  » 

( danaga 

(valua 

4  )  )  ) 

( supar-class 

( valua 

aguipnant ) ) 

( sub-class 

( valua 

filn-windar  shuttar  casing)) 

(typ. 

( valua 

conponant ) ) 

( dda 

( valua 

( function  support ) ) ) 

( inportanca 

(valua 

9)  ) 

( danaga 

(valua 

2)  ) ) 

(supar-class 

(valua 

body) ) 

( sub-class 

(valua 

nil)) 

(typ» 

( valua 

conponant ) } 

(dda 

( valua 

(function  wind-filn)  (location  body))) 

( inportanca 

(valua 

9) ) 

f  11 


f  1  1 
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(dsaaga 

( valua 

6) )  ) 

<  shuttnr 

( supor-elass 

( valua 

body) ) 

( sub<>claBs 

{ valua 

light-picturaa  darlc-picturas  blurrad-picturas 

(typa 

(valua 

eompanant ) ) 

(dda 

(valua 

(function  introduca-llght ) 

(location  body})) 

( inportsnco 

( valua 

8)  ) 

( dansgo 

( valua 

2) ) ) 

<c«iin9 

{ Bupor-clsss 

( valua 

body ) ) 

( sub-class 

(valua 

light-picturas ) ) 

(typo 

(valua 

conponant ) ) 

(dda 

( valua 

(function  protaction  filn))) 

{ inportanca 

(valua 

D) 

( dana9a 

( valua 

5) )  ) 

<  Ians 

( supa  r-class 

( valua 

aguipnant ) } 

( sub-class 

( valua 

diaphran  optical-lans  controls)) 

(typa 

(valua 

conponant ) ) 

(dda 

(valua 

(function  focusing)  (location  body))) 

( Inportanca 

( valua 

3)) 

( danaga 

(valua 

7))) 

( dlaphcam 

( supac-class 

(valua 

Ions ) ) 

( sub-class 

(valua) ) 

(typa 

(valua 

conponant ) ) 

(dda 

( valua 

(function  introduca-light )  (location  Ians))} 

( inportanca 

( valua 

D) 

( danaga 

( valua 

3))) 

( opt ical-lani 

( supar-class 

( valua  Ians ) ) 

( sub-class 

(valua 

light-picturas  dsrk-picturas  blurrad-picturas 

(typa 

( valua 

conponant } ) 

(dda 

(valua 

(function  focusing)  (location  canara))) 

( Inpo  rtanc# 

( valua 

9) ) 

( daaaga 

( valua 

2))) 

(controls 

( supar-class 

( valua 

Ians ) ) 

( sub-class 

(valua 

apartura  focal-distanca ) ) 

(typa 

( valua 

conponant ) ) 

(dda 

( valua 

(function  nanipulation )  (location  Ians))) 

( inportanca 

( valua 

2)) 

( danaga 

( valua 

9)  )  ) 

( sporturs 

(supar-class 

( valua 

controls ) ) 

(sub-class 

( valua 

light-picturas  dar)(-pieturas)  ) 

(typa 

(valua 

conponant ) } 

(dda 

(valua 

(function  control  intansity  nona  nil  light) 

( location  Ians } } ) 

( inportanca 

(valua 

10)) 

( dsn«9« 

{ f ocsl*distanc« 

( valua 

5))) 

( supar-class 

(valua 

controls ) ) 

( sub-class 

(valua 

nil)  ) 

(typa 

( valua 

conponant ) ) 

(dda 

( valua 

(function  focusing)  (location  controls))) 

( inportanca 

( valua 

6)) 

( danaga 

(valua 

3))) 

(flln 

( supar-class 

(valua 

aqulpnant ) ) 

( sub-class 

( valua 

inaga-typa  flln-typa  ass)) 

( typa 

( valua 

conponant ) ) 

(dda 

(valua 

(function  racording)  (location  body))) 

( inportanca 

( valua 

4  )  ) 

( danaga 

(valua 

4  )  )  ) 

( liia90-typ« 

( supar-class 

( va lua 

film) ) 

( sub-class 

(valua 

bad-colot  1  igh t-pic t u  I's s  da  r)? -pi  c t u i  * ?  i  ' 

( typa 

( valua 

attribute) » 

(dda 

(valua 

(function  film))* 

( inportanca 

( valua 

8  )  ) 

( danaga 

( valua 

6  )  >  ) 

( fila-typa 

( supar-class 

(valua 

filn) ) 

( sub-class 

( valua 

black-whita  color  infra-rad)) 

(typa 

(valua 

attrlbuta) ) 

(dda 

( valua 

(function  }  (location  ))) 

( inportanca 

(valua 

2)  ) 

( danaga 

(valua 

7) )  ) 

( ssa 

( supar-class 

( valua 

fllai)  ) 

( sub-class 

(valua 

light-picturas  dark-picturas  )  ) 

(typa 

( valua 

att  ributa ) ) 

(dda 

(valua 

(function  satting  axposura))) 
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( t«ehalqu« 


( iaportanee 

( danag* 

( tupar-class 
( aub-clatB 
(typa 
(dda 

( Inportanc* 

( danaga 

( aupar-claaa 
( aub-clasa 
(typa 
( dda 

i inportanca 
(daaia^a 


(eoapoaltlon  tsupar-claas 
(aub-claaa 
(typa 
(dda 

( laportaaca 

(daaaga 

( balanca  ( aupar-claaa 

( aub-claaa 
( typa 
(dda 

( inportanca 

( daaaoa 

(poaltion  (aupar-claaa 

( aub-claaa 
( typa 
(dda 

( iaportaaca 

( daaa^a 

( oparat ion  ( aupar-claaa 
( aub-elasa 
(typa 
( dda 

( inportanca 

(daata^a 

( aatt Inga  ( aupar-claaa 
( aub-claaa 

(typa 

(dda 

( inportanca 

(danaga 

(novaaiant  (aupar-claaa 

( aub-claaa 
(typa 
( dda 

( inportanca 

(danaga 

(lana-cap  (aupar-claaa 

( aub-claaa 
( typa 
( dda 

( inportanca 

( dan«ga 

(flln-loadlng(aupar-clas8 
( aub-claaa 
(typa 
(dda 

( inportanca 

(danaga 

(atyla  (aupar-claaa 

( aub-claaa 
(typa 
( dda 

( inportanca 

( danaga 

(traditional  (aupar-claaa 
( aub-claaa 
(typa 
(dda 

( inportanca 


rva^ua  3)) 
tvalua  2) n 

( valua  photography ) ) 

tvalua  lighting  conpoaition  oparationM 
[valua  fault M 

(valua  (inatrunant  natbod  praciaa))) 

(valua  4)) 

[valua  0) ) ) 

(valua  tachnlqua)) 

[valua  natural  artificial)) 

[ valua  fault ) ) 

[valua  (function  iapraaaion)  (inatrunant  tachniqua ) )  ) 
[valua  10)) 

[valua  S ) ) ) 

[valua  tachnigua)) 

[valua  balanca  position)) 

[valua  fault)) 

[valua  (function  Inprasaion)  (inatrunant  tachniqua))) 
[valua  1)) 

[valua  3)1) 

[valua  conpoaition) ) 

[valua  Inbalanca)) 

[valua  fault) ) 

(valua  (Inatrunant  tachniqua))) 

(  valua  1 ) ) 

[  valua  9 ) ) ) 

[valua  conpoaition)) 

[valua  (function  angla)  (inatrunant  inbalanca))) 

[  valua  fault ) ) 

[valua  (inatrunant  tachniqua))) 

[valua  3) ) 

[  valua  9 )  ) ) 

[valua  tachniqua)) 

[valua  sattlngs  .Aovanant  lana-cap  f i In-loading )  ) 
[valua  fault) ) 

[valua  (function  control)  (Inatrunant  canara))) 

[valua  10) ) 

; valua  5) ) ) 

[valua  oparation)) 

valua  dark-picturaa  llght-picturas 

blurrad-picturaa  lack-of-datall ) ) 

[valua  fault) ) 

[valua  (function  control))) 
valua  1 ) ) 
valua  4 ) ) ) 

[valua  oparation)) 

[valua  blurrad-picturaa)) 
valua  fault ) ) 

[valua  (function  clarity)}) 

[valua  2)) 

[valua  7) ) ) 

[valua  oparation)) 

[valua  dark-picturaa)) 

[  valua  fault ) ) 

[valua  (function  protaction)  (location  Ians))) 
valua  9) ) 

[valua  5) ) ) 

valua  oparat i on ) i 
.valua  no-f i Im ) > 

[  valua  f aul t  )  ) 

[valua  (  f  unc  t  ion  winding-spool  )  (location  cam®!-*'  ' 

valua  2  )  ) 
valua  3  )  )  ) 

valua  photography)) 

valua  traditional  contanporary  nouvaau)) 
valua  fault ) ) 

valua  (inatrunant  axpraaaion  paraonal})) 
valua  9 ) ) 
valua  2 ) ) ) 

valua  atyla)) 

valua  British  Anarican  Oarnan  Pranch)) 
valua  fornat))  ;  atyla 

valua  (function  axpraaaion  old-f aahlonad )  )  ) 
valua  1 ) ) 
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<daoa90  (voluo  9))) 


TKSTS  AMO  0BSERVATZ0M8  ;; 


(light'picturoi 

( sup«r-clftss 

( typo 
(dda 

( laportanco 

( donoqo 


(voluo  flla-typo  oso  oporturo  shuttor  cosing 
optlcol-lons  Bottings)) 

(voluo  obiorvotionn 
(voluo  (tnstruBont  oxcoss~light ) M 
(voluo  Sn 
(voluo  6) ) ) 


(dork-picturos 

( Bupor-^closs  (voluo  lons-^cop  filo->typo  oso 

oporturo  shuttor  opticol-lons  sottings)) 
(typo  (voluo  obsorvotlon) ) 

(  ddo  (voluo  (Instruoont  lock'-of-llght  I  )  ) 

(ioportonco  (voluo  4)) 

(dooogo  (voluo  6))) 


(inbolonco  (supor-closs  (voluo  bolonco  position}} 

(typo  (voluo  obsorvotion ) ) 

(ddo  (voluo  (instrunont  bolonco  no)}) 

(inportonco  (voluo  5)) 

(donogo  (voluo  3))) 


(lock-of~dotoil 

(supor-closs  (voluo 
(typo  (voluo 

(ddo  (voluo 

(inportonco  (voluo 
(donogo  (voluo 

(blurrod-picturos 

( supor-closs  ( voluo 
(typo  (voluo 

(ddo  (voluo 

( inport ones  (voluo 
(donogo  (voluo 

(no-filn  (supor-closs  (voluo 

(typo  (voluo 

(ddo  (voluo 

(inportonco  (voluo 
(donogo  (voluo 

(bod-color  (supor-closs  (voluo 
(typo  (voluo 

(ddo  (voluo 

( inportonco  (voluo 
(donogo  (voluo 

)  ;  closo  frono  list 
)  ;  closo  noko  frono  kb 


sottings ) ) 
obsorvotion)  ) 

(instrunont  dotoil  no))) 
9)) 

5)}) 


shuttor  opticol-lons  sottings  novonont } ) 
obsorvotion) ) 

(instrunont  clarity  no))) 

10)  ) 

1})) 

f iln-loading) } 
obsorvotion) ) 

(instrunont  filn  no}}) 

7M 

3>)) 

f iln-color ) ) 
obsorvotion) ) 

(instrunont  color  no))) 

10)  ) 

5M) 
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Pram  Llap,  Opus  36.79 
->  [load  aaln.l] 

(load  support. 1] 

(load  /usor/apbll/atB/llsp/llspaids/Bacros . 1 J 
( load  /usor/aphll/«t»/llsp/lispalds/lo . 1 1 
(load  /usar/aphll/BtB/llsp/'l  ispaids/stack  .  1 ) 

(load  /usar/aphll/ata/lisp/aoBaBties/oavo . 1 ] 

(load  /usar/aphll/ata/lisp/lispaids/track . 1 ] 

(load  focus . 1 ] 

(load  anaphora. 1] 

(load  kb_intarfaca . 1 ] 

(load  /usar/aphll/ata/dissart/KB/f raaas . lap ] 

(load  /uaa r/aphl l/at a/di soar t/KB/construct_kb . Isp ] 

( load  /usar/aphll/ata/dissart/KB/f raaa^accass . 1 ) 

(load  pradlcatas . 1 ] 

( load  taxt . 1 ] 

(load  traaslata.l] 

[ load  ralatlonalqraa. 1 ) 

(fasl  ganarata.e} 

(load  raalisatlon.l] 

(load  aorphsyn.l] 

(load  surf aca^f ora . 1 ] 

(load  dictionary.!] 

(load  /usar/aphi l/ata/l Isp/dict ions ry/dlctlonary_^aacros . 1 ] 

(load  graaaar] 

(load  diet] 

[ load  kb . 1 ) 

->  (aaln) 

Waleoaa  to  tha  OERNY  taxt  ganaration  systaa  for  axpart  ayataas. 
QBMRY  was  daalgnad  to  anewar  quaatlona  of  tha  fora: 

--  What  is  an  X7 

—  Why  did  you  diagnoaa  Y?  or  Why  doaa  Y  hava  a  problaa? 

--  What  is  tha  diffaranca  batwaan  X  and  Y? 

whara  X  and  Y  ara  antitiaa  within  tha  providad  knowladga  baaa. 

Thasa  thraa  typas  of  quaations  ara  indicatad  by  tha  kaywords: 
DBPINE,  EXPLAIN,  and  COMPARE,  raapaetivaly • 


Plaaaa  antat  tha  donaln  dictionary  fila  nana?  nauropaychology . diet 
(load  nauropaychology . diet ] 

What  is  tha  donsin  of  discoursa?  nauropsychology . kb 
(load  nauropsychology . kb ] 

Do  you  wish  DEFINE.  EXPLAIN,  or  COMPARE?  dafina 
What  do  you  wish  to  know  about?  brain 


TEXT  SKETCH: 

Introduction 

daacription 

axanpla 

GENERATE  RELEVANT  KNOWLEDGE  POOL 


GENERATE  DISCOURSE  SKETCH: 

(dafinitlon  attributiva  conatituant  illustration) 
GLOBAL  FOCUS  (TOPIC)  •«>  brain 


LOCAL  FOCUS  CHOICES  (FP/CP/PP)  >s>  (brain) 

SELECTION  — > 

(dafinitlon  ((brain)} 

( (organ ) ) 

((location  (skull  human))  (function  (understanding)))) 


LOCAL  FOCUS  CHOICES  (FP/CP/PP)  ««>  (organ  brain  (brain)) 
SELECTTON 

(attributiva  ((brain))  ((valua  inportanca  indaf  tan))) 

LOCAL  FOCUS  CHOICES  (FF/CF/PF)  »•>  (valua  brain  (brain)  (brain)) 
SELECTION  ««> 

(conatituant  ((brain)) 

((ragion  two  nona  )  ) 
nil 

( ( laf t-hani sphara )  ( right-haalsphara ) ) } 


% 


LOCAL  FOCUS  CHOICES  (FF/CF/PF) 


>  (ragion  laft-haai sphara  right-hanisphara  brain  (brain)  (brai 
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n)  (brain) ) 

SILBCTION  mm> 

(llluatratlen  (( laf t-haniaphara  > ) 

( ( function  faatura-racognition ) ) 
((location  (brain)))) 


RHETORICAL  PREDICATE 


(dafinltion  ((brain)} 

( (organ) ) 

((location  (akull  hunan))  (function  (undaratandlng } ) ) ) 
PRAGMATIC  PURCTIOM  ( diacour8a->topic-antity/f ocus/gi van ) 

((brain)  (nil  (brain)  (organ))  nil) 


SEMANTIC  PUNCTION  : 

t  action  agant  patiant  inst  loc  funct  nannar  tlaa 

(ba  ((brain))  ((organ))  nil  (akull  hunan)  (undaratandlng)  nil  nil  nil) 


RELATIONAL  PUNCTION  (voica  and  fora)  :  (activa) 

LEXICAL  INPUT  TO  SENTENCE  GENERATOR: 

(  (a 

((datarainar  count  aingSp  indafart  notof  nonag  nonua) 

(articla  bafora  consonant) 
a)  ) 

(brain  ((noun  count  1  nautar)  ragion  brain)) 

(ba  ((copula  plur  praa  p3) 

(L  (_P)  (L  (_WH)  (_P  (L  (_y)  (aqual  _y))))) 

ara)“  -  -  -  - 

((copula  slng3p  praa  p3) 

(L  (  P)  (L  (  WM)  (  P  (L  (  y)  (agual  WH  y))))) 
la ) 

((copula  sing  praa  pi) 

(L(P)(L(WH)(P(L(y)  (agual  wh  _y))))) 
aa))" 

( an 

({datarainar  count  aingSp  indafart  notof  nonag  nonum) 

(articla  bafora  vowal) 
an) ) 

(organ  ((noun  count  1  nautar)  (call-basad  functioning  sub  coaponant)  organ)) 
(for  ((connactiva  for-axaapla)  for  for) 

( (prapoaition)  (indicating  purpoaa)  for)) 

(undaratandlng  ((noun  aaaa  1  nautar)  conaciouanaas  undaratandlng)) 

(locatad  ((prapoaition  locatad-in)  (locatad-ln)  locatad)) 

(in  ((prapoaition  locatad-in)  (locatad-ln)  in) 

((prapoaition)  (innar  or  Inward  location)  in)) 

(tha 

((datarainar  count  1  dafart  notof  nonag  nonua)  (aing/plur  fora  of  tha)  tha)) 
(huaan  ((noun  count  1  nautar)  huaan  huaan)) 

(akull  ((noun  count  1  nautar)  (cranial  containar  and  protactor)  akull))) 
SYNTAX  OUTPUT  PROM  SENTENCE  GENERATOR: 


(((a  daclarativa  activa) 

((np  alngSp  p3  nautar) 

((datarainar  count  aingSp  indafart  notof  nonag  nonum)  ((a))) 

((nl  aing3p  nautar)  ((noun  count  ainglp  nautar)  ((brain))))) 

((vp  8ing3p  p3  praa  activa) 

((copula  alngSp  praa  p3)  (fis))) 

((np  sing3p  p3  nautar) 

((np  aingSp  p3  nautar) 

((np  aingSp  p3  nautar) 

((datarainar  count  sing3p  indafart  notof  nonag  nonum)  ((an))) 

((nl  aingSp  nautar)  ((noun  count  sing3p  nautar)  Morgan))))) 

npp) 

((prapoaition)  ((for))} 

((np  111  p3  nautar)  ((noun  aaaa  sing3p  nautar)  ((undaratandlng)))))) 
npp) 

( (prapoaition  1 oca tad-in )  ( (locatad) ) ) 

((prapoaition  locatad-in)  ((in))) 

( (np  33  p3  nautar ) 

((datarainar  count  21  dafart  notof  nonag  nonua)  ((tha))) 

( (nl  33  nautar ) 

((noun  count  27  nautar)  ((huaan))) 

((noun  count  33  nautar)  ((akull))))))))) 

((a  daclarativa  activa) 

((np  Bing3p  p3  nautar) 
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<(d*t«rBin«r  count  aingSp  indofart  notof  nonog  nonun)  {(«})) 

((nl  tlngSp  noutor)  ((noun  count  singlp  noutor)  ((brain))))) 

((vp  aingSp  p3  praa  active) 

((copula  aing3p  praa  p3)  ((ia))) 

((np  ain93p  p3  nautar) 

((np  aiaglp  p3  nautar) 

((dataralnar  count  alng3p  Indafart  notof  nonag  nonun)  ((an))) 

( (nl  aingSp  nautar)  ((noun  count  ala93p  nautar)  ((organ))))) 

(  (PP) 

( (prapoaltion)  ( (for) ) ) 

( ( np  111  p3  nautar ) 

( (np  111  p3  nautar)  ((noun  naaa  aingjp  nautar)  ( ( undarstanding ) ) ) ) 
(  (PP) 

( (prapoaltion  1 oca tad- In)  ( (located) ) ) 

((preposition  locatad-ln)  ((in))) 

( (np  33  p3  nautar) 

((dataraiaar  count  21  defect  notof  nonag  nonun)  ((the))) 

( (nl  33  nautor ) 

((noun  count  27  nautar)  ((huaian))) 

((noun  count  33  nautar)  (( akull ))))))))})) ) 
t 


RHETORICAL  PREDICATE 


(attributive  ((brain))  ((value  importance  Indaf  tan))) 
PRAGHATIC  FUNCTION  ( di acour aa-t opic-ant 1 ty/f ocus/g 1 van )  : 
((brain)  (((brain))  (brain)  (value))  (brain  organ)) 


SEMANTIC  FUNCTION  : 

action  agent  patient  inat  loc  funct  aiannar  tine 

(have  ((brain))  ((value  inportanca  indaf  tan))  nil  nil  nil  nil  nil  nil) 


RELATIONAL  FUNCTION  (voice  and  form)  :  (active) 

LEXICAL  INPUT  TO  SENTENCE  GENERATOR: 

((it  ((pronoun  pera  aingSp  aubj  p3  neuter)  (e  thing)  it}) 

(heve  ((have  aing3p  prea  p3)  (to  own  or  poseaa  -  irregular  |3p|  sing)  has) 
((have  plur  pres  pi)  (to  own  or  poseaa)  have) 

((have  sing  prea  pi)  (to  own  or  poseaa)  have)) 

( an 

((determiner  count  singlp  indefart  notof  noneg  nonum) 

(article  before  vowel) 
en)  ) 

(importance  ((noun  count  1  neuter)  inportence  Importance)) 

(value  ((noun  count  1  neuter)  value  value)) 

(of  ((preposition)  (place  of  origin)  of)) 

(ten  ((number  plur)  (lexical  representation  of  number  10)  ten))) 

SYNTAX  OUTPUT  FROM  SENTENCE  GENERATOR: 


(((a  declarative  active) 

((np  aingSp  p3  neuter)  ((pronoun  pera  8lng3p  aubj  p3  neuter)  ((it)))} 
((vp  sing3p  p3  prea  active) 

((have  aingSp  pres  p3)  ((has))) 

((op  sing3p  p3  neuter) 

((np  8in93p  p3  neuter) 

((determiner  count  aingSp  indefart  notof  noneg  nonum)  ((an))) 

( (nl  aingjp  neuter) 

((noun  count  3  neuter)  ( (  iinportanc«  )  )  ) 

((noun  count  ainglp  neuter)  ((value))))) 

((pp)  ((preposition)  {(of)))  ((number  plui  )  ((ten)M)M)) 
t 


RHETORICAL  PREDICATE 


(constituent  ((brain)) 

((region  two  none)) 
nil 

( ( left-hemisphere )  ( right-hemisphere ) ) } 
PRAGMATIC  FUNCTION  { di acour ae-t opic-enti ty/f ocus/gi ven )  : 


( (brain) 
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(((brain)  (brain))  (brain)  (raqlon  laf t-hanisphara  right-haniaphara ) ) 
(brain  valua  organ)) 


StMARTZC  PUNCTIOM  : 

action  agant  patlant  inst  loc  funct  nannar  tina 
(contain  ( (brain) ) 

( ( ragion  two  nona)) 

nil 

nil 

nil 

( ( laft-hanlaphara )  { right-hanlaphara ) ) 

nil 

nil ) 


RELATIONAL  PUNCTIOH  (voica  and  fora)  t  (activa  colon-lntartion ) 

LEXICAL  INPUT  TO  SENTENCE  QEHBRATOR: 

((it  ((pronoun  pars  ainglp  aubj  p3  nautar)  (a  thing)  it)) 

(contain  ((trana  1  pras  2)  (rastrictad  or  otharwisa  linitad)  contain)) 

(two  ((nunbar  plur)  (laxical  raprasantation  of  nunbar  2)  two)) 

(ragion  ((noun  count  1  nautar)  ragion  ragion)) 

(colon  ((colon)  colon  colon)) 

( tha 

((datarninar  count  1  dafart  notof  nonag  nonun)  (slng/plur  fora  of  tha)  tha)) 
( laf t-hanisphara  ((noun  count  singlp  nautar)  ragion  laf t-haniaphara ) } 

(and  ((conjunction  coord)  ( intar saction )  and)) 

( tha 

((datarninar  count  1  dafart  not^'f  nonag  nonun)  (sing/plur  forn  of  tha)  tha'* 
( right-hanisphara  ((noun  count  singlp  nautar)  ragion  right'^hanisphara ) ) ) 

SYNTAX  OUTPUT  PROM  SENTENCE  OENERATOR: 


(((■  daclarativa  activa) 

((np  singlp  p3  nautar)  ((pronoun  pars  8lng3p  subj  p3  nautar)  ((it)))) 

( ( vp  sing3p  p3  pras  activa) 

((trans  sing3p  pras  6)  ((contain))) 

(  ( np  plur  p3  nau*^ei) 

((np  plur  p3  nautar) 

((nunbar  plur)  ((two))) 

((nl  plur  nautar)  ((noun  count  plur  nautar)  ((ragion))})) 

( (colon)  ( (colon) )  ) 

((np  singlp  p3  nautar) 

((np  singSp  p3  nautar) 

((datarninar  count  21  dafart  notof  nonag  nonun)  ((tha))) 

((nl  singSp  nautar)  ((noun  count  sing3p  nautar)  ( ( laf t-hanisphara  )  )  )  }  ) 
((conjunction  coord)  ((and))) 

( ( np  singSp  p3  nautar) 

((datarninar  count  27  dafart  notof  nonag  nonun)  ((tha))) 

((nl  singSp  nautar) 

((noun  count  singlp  nautar)  ((right-hanisphara))))})))) 

((s  daclarativa  activa) 

((np  slngSp  p3  nautar)  ((pronoun  pars  slng3p  subj  p3  nautar)  ((it)))) 

((vp  singSp  p3  pras  activa) 

((trans  singSp  pras  6)  ((contain))) 

((np  plur  p3  nautar) 

((np  plur  p3  nautar) 

((np  plur  p3  nautar) 

((nunbar  plur)  ((two))) 

((nl  plur  nautar)  ((noun  count  plur  nautar)  ((ragion))))) 

( ( colon )  ( ( colon  )  )  ) 

((np  singlp  p3  nautar) 

((datarninar  count  21  dafart  notof  nonag  nonum)  ((the)}) 

((nl  singSp  nautar) 

((noun  count  singSp  nautar)  ( ( laf t-hanisphere ) ) > ) ) ) 

((conjunction  coord)  ((and))) 

( (np  slng3p  p3  nautar) 

((datarninar  count  27  dafart  notof  nonag  nonum)  ((the))) 

( (nl  singSp  nautar  ) 

((noun  count  sing3p  nautar)  ( ( r ight-hami sph» ) ) ’ > ‘ « » > > 


RHETORICAL  PREDICATE 


(illustration  ( ( laf t-hanisphara ) ) 

((function  faatura-racognition ) ) 
(  (location  (brain) )) ) 


PRAGMATIC  FUNCTION  ( di scour 8 a- topic-ant ity/f ocus /given )  : 


s 
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( ( l*f t-b«Bitph«rtt ) 

(((brain)  (brain)  (brain))  ( laf t-haniaphara )  ( f aatura^racognit ion ) ) 
(brain  ragion  laf t-haniaphara  right-haaiaphara  valua  organ)) 


SEMANTIC  FUNCTION  : 

action  agant  patiant  inat  loc  funct  aannar  tiaa 
(hava  ( ( laf t-haaiaphara ) ) 

((function  faatura-racognition) ) 
nil 

(brain) 
nil 
nil 
nil 
nil ) 


RELATIONAL  FUNCTION  (voica  and  fora)  (activa  axaapla-insartion ) 

LEXICAL  INPUT  TO  SENTENCE  OBNBRATORt 
(  (tha 

((datarainar  count  1  dafart  notof  nonag  nonua)  (sing/plur  fora  of  tha)  tha)) 
( laft-haaiaphara  ((noun  count  aing3p  nautar)  ragion  laf t^haai aphara ) ) 

(coaaa  ((coaaa)  coaaa  coaaa)} 

(for  ((connactlva  for-axaapla )  for  for) 

( ( prapoaition )  (indicating  purpoaa)  for)) 

(axaapla  ((connactiva  for-axaapla)  axaapla  axaapla) 

((noun  aaaa  1  nautar)  axaapla  axaapla)) 

(coaaa  ((coaaa)  coaaa  coaaa)) 

(hava  ((hava  slng3p  praa  p3)  (to  own  oi  poaaaa  **  irragular  |ipi  ting)  has) 
((hava  plur  pras  pi)  (to  own  or  poaaaa)  hava) 

((hava  sing  pras  pi)  (to  own  or  poaaaa)  hava)) 

( tha 

((datarainar  count  1  dafart  notof  nonag  nonua)  (sing/plur  fora  of  tha)  tha)) 
(faatura-racognition  ((noun  aaaa  1  nautar)  function  faatura-racognition)) 
(function  ((noun  count  1  nautar)  function  function) 

((varb  trana  1  pras  2)  (tailing)  function)) 

(locatad  ((prapoaition  locatad-in)  (locatad-in)  locatad)) 

(in  ((proposition  locatad-in)  (locatad-in)  in) 

((proposition)  (innar  or  inward  location)  in)) 

(it  ((pronoun  pars  aingSp  subj  p3  nautar)  (a  thing)  it))) 

SYNTAX  OUTPUT  FROM  SENTENCE  OENBRATOR: 


(((8  daclaiativa  activa) 

((np  aingSp  p3  nautar) 

((np  aingSp  p3  nautar) 

((datarainar  count  3  dafart  notof  nonag  nonua)  ((tha))} 

((nl  sing3p  nautar)  ((noun  count  singlp  nautar)  ( ( laf t-haaisphara ) ) ) ) ) 
( ( coaaa )  ( ( coaaa ) ) ) 

((ral  for-axaapla) 

((connactiva  for-axaapla)  ((for))) 

((connactiva  for-axaapla)  ((axaapla)))) 

( (coaaa)  ( (coaaa) ) ) ) 

( ( vp  singSp  p3  pras  activa) 

((hava  aingSp  pras  p3 )  ((has))) 

( (np  27  p3  nautar ) 

(  (np  27  p3  nautar ) 

((datarainar  count  15  dafart  notof  nonag  nonua)  ((tha))) 

( ( nl  27  nautar ) 

((noun  aass  21  nautar)  ((faatura-racognition))) 

((noun  count  27  nautar)  ((function))))) 

(  (PP) 

((prapoaition  locatad-in)  ((locatad))) 

((proposition  locatad-in)  ((in))) 

((np  singSp  p3  nautar)  ((pronoun  pars  sing3p  subj  p3  neuter) 


DISCOURSE  STRUCTURE  -f  FOCUS  *  GIVEN 

(((dafinition  ((brain)) 

( (organ  )  ) 

((location  (skull  human))  (function  (understanding))'' 
(nil  (brain)  (organ)) 
nil ) 

( (attributiva  ((brain))  ((valua  iaportanca  indaf  tan))) 

(((brain)}  (brain)  (valua)) 

(brain  organ)  ) 

( ( constltuant  ((brain)) 

((ragion  two  nona)) 
nil 

((laft-haaisphara)  ( r ight-haalsphara ) ) ) 

(((brain)  (brain))  (brain)  (ragion  laf t-haaisphara  right-haaisphara ) ) 
(brain  valua  organ)) 

( (illustration  ( ( laf t-haaisphara ) ) 


Tu«  S«p  1  11:55:02  1987 


C  wli«t^is_a__brAia7_«arly .  cun 

( (function  f oAturo-rocognltion) ) 

((locAtion  (brain)))) 

( ( (brain)  (brain)  (brain)  )  { laf t-haniaphara )  ( f aatura-racognl t ion ) ) 
(brain  ragion  laf t^hanisphara  rlght-hanisphara  valua  organ))) 


MESSAGE  REALIZATION 

((a  brain  la  an  organ  for  undaratanding  locatad  in  tha  hunan  akull) 

(it  haa  an  laportanca  valua  of  tan) 

(it  contalna  two  ragiona  colon  tha  laf t*'haalaphaca  and  tha  right-haaiaphara ) 
(tha  laft'haalaphara 

coaaa 

for 

axaapl a 
coaaa 

haa 

tha 

faatura-racognition 

function 

locatad 

In 

It )  ) 


SURFACE  PORK 


A  brain  la  an  organ  for  undaratanding  locatad  in  tha  huaan  alcull. 

It  haa  an  laportanca  valua  of  tan. 

It  contalna  two  ragiona:  tha  laf t-^haaiaphara  and  tha  right-hamlsphara . 

Tha  laf t-haaiapha r a ,  for  axaapla,  haa  tha  faatura'^racognltion  function  locatad  in  it. 
t 

•>  (axit) 


1  9«oajrl.out 

Franz  Lisp, 

->  (includs  asin) 

(fasl  asin.o] 

Wslcotos  to  th«  GENNY  tsxt  gsnsrstion  systsa  for  oxpsrt  systoms . 
OENNY  was  dasignad  to  anawar  quaatlons  of  tha  fora: 

—  What  is  an  X7 

--  Why  did  you  dlagnosa  Y7  or  Why  doas  Y  hava  a  problaa? 

—  What  is  tha  dlffaranca  batwaan  X  and  Y7 

whara  X  and  Y  ara  antltiaa  within  tha  providad  knowladga  basa. 

Thasa  thraa  typaa  of  quastiona  ara  indicatad  by  tha  kaywords; 
DEFINE,  EXPLAIN,  and  COMPARE,  r a apac t i valy . 


Tua  5ap  1  11 : 27:lfi  1987 
Opus  38.79 


Plaasa  antar  tha  doaain  dictionary  fila  nana?  nauropsycho 1 ogy . die t 
(load  nauropsychology.dlct] 

What  is  tha  doaialn  of  di8coursa7  nautopsychology . kb 
(load  nauropaychology . kb ] 

Do  you  wish  DEFINE,  EXPLAIN,  or  COMPARE7  dafina 
What  do  you  ki'<h  to  know  about?  brain 


TEXT  SKETCH: 

introduction 

dascrlption 

axampla 

SELECT  KNOWLEDGE  VISTA  -->  ((brain'  brain  laf t-hanisphara  right-hanisphara  human) 
GENERATE  RELEVANT  PROPOSITION  POOL 
GENERATE  DISCOURSE  PLAN: 

(dafinition  attributlva  constituant  attclbutlva  attributiva  1 1 lust r at  1  on } 

GLOBAL  FOCUS  (DISCOURSE  TOPIC)  ••>  (brain) 

LOCAL  FOCUS  PREFERENCE  >«>  (brain) 

PREDICATE  SELECTED  »»> 

(dafinition  ( (brain) ) 

( ( ragion  )  ) 

(\iocation  (skull  human))  (function  ( unda rst anding ) ) ) ) 

LOCAL  FOCUS  PREFERENCE  *»>  (ragion  brain) 

PREDICATE  SELECTED 

(attributiva  ((ragion  brain})  ((valua  inportanca  indaf  tan  ralativa))) 

LOCAL  FOCUS  PREFERENCE  «->  (brain) 

PREDICATE  SELECTED  •«> 

(constituant  ((brain)) 

((ragion  two  nona  )  ) 
nil 

( ( ragion  laft-hamlsphara)  ( ragion  right -hamisph ara) ) } 

LOCAL  FOCUS  PREFERENCE  ••>  (ragion  1 a f t-haai spha ra  right-hanisphara  brain) 
PREDICATE  SELECTED  «•> 

(attributiva  ((ragion  laf t-ha»i sphara ) ) 

((valua  importanca  indaf  tan  ralativa))} 

LOCAL  FOCUS  PREFERENCE  «*>  < la f t-hamispha c a  ragion  v ight-hen\isphe t a  bvaini 
PREDICATE  SELECTED  »> 

(attributiva  ((ragion  right-hamisphaca ) ) 

((valua  iRiportanca  indaf  tan  ralativa))) 

LOCAL  FOCUS  PREFERENCL  =*>  ( r i gh t -hami s pha ra  1  a f t -hami sphe v a  region  biait^' 

PREDICATE  SELECTED  *>«> 

(illustration  ((ragion  ri gh t-hamispha r a)) 

( ( ragion  )  ) 

((location  (brain  rioht))  (function  ( gast a  1 t-unda r s t anding  )  )  )  ) 


SURFACE  FORM 

A  brain  is  a  ragion  for  undarstanding  locatad  in  tha  human  skull. 

It  has  a  ralativa  importanca  valua  of  tan. 

It  containa  two  ragions:  a  laft-hamlsphara  ragion  and  a  right-hamlsphara  ragion. 

Tha  laft-haaisphara  ragion  has  a  ralativa  importanca  valua  of  tan. 

Tha  rlght-haaisphara  ragion  has  a  ralativa  iaportanca  valua  of  tan. 

Tha  right-hamlsphara  ragion,  for  axampla,  is  a  ragion  for  gastalt-undarstanding  locatad  in  tha 
right  brain. 


Jk 


2 


9*nByl .out 


Tu«  Sap  1  11:27:16  1987 


PROCESSING  TIME 

CPU  tin*  usad  for  procassing:  8826 

CPU  tlBa  usad  for  garbaga  Collaction:  3057 

nil 

(axit) 


1 


9«iiay2  .out 


Tu«  Sop  1  11:28:49  1987 


Pranz  Lisp,  Opus  38.79 
->  (includo  aain) 

[fasl  aain.o] 
t 

Ploaso  ontor  tho  doaain  dictionary  filo  naao?  nouropaychology . di ct 
(load  nouropaychology. diet  I 

What  la  tho  doaain  of  discourso?  nouropaychology . kb 
[load  nouropaychology . kb  1 

Do  you  wish  DEPINE,  EXPLAIN,  or  COMPARE?  oxplaln 
What  do  you  wish  to  know  about?  korsakoffa 


TEXT  SKETCH: 

roaaon 

ovldonco 

SELECT  KNOWLEDGE  VISTA  »«>  ((korsakoffa)  korsakoffa  stn-good-iq  apathotic  atm) 
GENERATE  RELEVANT  PROPOSITION  POOL 
GENERATE  DISCOURSE  PLAN: 

(causo-offoct  attrlbutivo  attributivo) 

GLOBAL  POCUS  (DISCOURSE  TOPIC)  «•>  (koraakoffa) 

LOCAL  POCUS  PREPERENCE  ->>  (korsakoffa) 

PREDICATE  SELECTED  >■> 

I cauaa^af f act  ((diaordar  korsakoffa)) 

( (nanifast ) ) 
nil 

( ( obsarvat ion  atn-good^’iq )  (obsarvation  apathatic)) 

( ( daaaga ) ) ) 

LOCAL  POCUS  PREPERENCE  •»>  ( a  tfli'>geod-'lg  apathatic  nanifast  damaga  korsakoffa) 
PREDICATE  SELECTED  »»> 

(attributlva  {(obsarvation  stm-good-iq ) )  ((valua  likalihood  indaf  nina))) 

LOCAL  POCUS  PREPERENCE  ««>  (stn>good>iq  apathatic  nanifast  danaga  korsakoffs) 
PREDICATE  SELECTED  •-> 

(attributiva  ((obsarvation  apathatic))  ((valua  likalihood  indaf  tan))) 

SURFACE  FORM 

Korsakoffa  disordar  is  nanifast  bacauaa  tha  aamory-iq  obsarvation  and  tha  apathatic 
obsarvation  indicata  danaga. 

Tha  nanory-iq  obsarvation  has  a  likalihood  valua  of  nina. 

Tha  apathatic  obsarvation  has  a  likalihood  valua  of  tan. 

PROCESSING  TIME 

CPU  tima  usad  for  procassing:  7632 

CPU  tima  usad  for  garbaga  Collaction:  2718 


nil 

->  (axit) 


9«nBy3 .out 


1  11:30:44  1987 


Tu«  S«p 

Pranc  Lisp,  Opus  38.79 
->  < includs  Bsln ) 

(f«sl  aain.o} 
t 

Plssss  sntsr  ths  doasln  dictionary  fila  naaa?  nauropsychology . diet 
(load  nauropsychology , diet } 

What  is  tha  domain  of  discoursa?  nauropsychology . kb 
[load  nauropsychology . kb } 

Do  you  wish  CEPIRC,  EXPLAIN,  or  COMPARE?  axplain 
What  do  you  wish  to  know  about?  instability 


TEXT  SKETCH: 


raason 

avidanca 

SELECT  KNOWLEDOE  VISTA  ((instability)  instability  parsonality  sax-activity  Itanporal) 

GENERATE  RELEVANT  PROPOSITION  POOL 

GENERATE  DISCOURSE  PLAN: 

( causa-af f act  attributiva  attributiva) 


GLOBAL  FOCUS  (DISCOURSE  TOPIC)  >•>  (instability) 


LOCAL  POCUS  PREFERENCE  •«>  (instability) 

PREDICATE  SELECTED  «•> 

( causa-af f act  ((syaptoa  instability)) 

( (nanifast ) ) 
nil 

( ( obsa rvat ion  parsonality)  (obsarvation  sax-activity)) 

( ( daaag#  > )  ) 

LOCAL  FOCUS  PREFERENCE  «»>  (parsonality  sax-activity  manifast  damaga  instabili 
PREDICATE  SELECTED  •■> 

(attributiva  ((obsarvation  parsonality))  ((valua  likalihood  indaf  four))) 


LOCAL  POCUS  PREFERENCE  «>>  (parsonality  sax-activity  nanlfast  damaga  instabili 
PREDICATE  SELECTED  •«> 

(attributiva  ( (obsarvation  sax-activity))  ((valua  likalihood  indaf  four))) 


SURFACE  FORM 


ty) 

ty) 


An  instability  symptom  is  manifast  bacausa  tha  parsonality  obsarvation  and  tha 
sax-activity  obsarvation  indicata  damaga. 

Tha  parsonality  obsarvation  has  a  likalihood  valua  of  four. 

Tha  sax-activity  obsarvation  has  a  likalihood  valua  of  four. 

PROCESSING  TINE 

CPU  tima  usad  for  procassing:  7624 

CPU  tima  usad  for  garbage  Collaction:  2694 

nil 

->  ( axit ) 


9«Bttr4.oat  Mon  Aug  31  13:17:11  1947 

Praas  Lisp,  Opua  38.79 
•*>  (Includa  aala) 

( f asl  Bain . o ] 
t 

Plaasa  antar  tha  doaaln  dictionary  fila  nana?  nauropaychology . diet 
(load  nauropaychology . diet ) 

what  ia  tha  doaaln  of  dlacourea?  nauropaychology . kb 
(load  nauropaychology. kb  I 

Do  you  wlnh  DEPIME,  EXPLAIN,  or  COMPARE?  axplain 
What  do  you  wlah  to  know  about?  parM.^nallty 


TEXT  SKETCH: 


SELECT  KNOWLEDGE  VISTA  «■>  < (paraonality )  paraonality  instability) 

dBRERATC  RELEVANT  PROPOSITION  POOL 

GENERATE  DISCOURSE  PLAN: 

(cauaa-affact  dafinitlon) 

GLOBAL  POCUS  (DISCOURSE  TOPIC)  »>>  (paraonality) 

LOCAL  POCUS  PREPERENCE  ««>  (paraonality) 

PREDICATE  SELECTED  «>> 

( cauaa-af f act  ( ( obaarvation  paraonality))  ((nada)}  nil  nil  ((daitaga))) 

LOCAL  POCUS  PREPERENCE  »>  (aiada  daaaga  paraonality} 

PREDICATE  SELECTED  •«> 

(dafinition  ((obaarvation  paraonality)) 

( ( Obaarvation ) ) 

((function  (Btability-datactlon) )  (location  (patlant)))) 


SURPACE  PORM 


It  is  an  obaarvation  for  atabillty-dataction  locatad  in  a  patiant. 
PROCESSING  TIME 

CPU  tima  usad  for  procaaaing:  741'9 

CPU  tima  uaad  for  garbaga  Collaction:  2683 

nil 

->  (axit ) 


1 


^•BayS.oat 


Tu«  S«p  1  11:31:53  1987 


■  J 


Frans  Lisp,  Opus  38.79 
->  (includs  Bsln) 

(fasl  main.o] 
t 

Plaass  sntar  th«  doaaln  dictionary  fila  nana?  nauropsychology . diet 
{load  nauropaycholo^y . diet ] 

What  is  tha  donain  of  diacouraa?  nauropaychology . kb 
{load  nauropsyeholo^y.kb} 

Do  you  wish  DEFINE,  EXPLAIN,  or  COMPARE?  co«para 

What  do  you  wish  to  conpara?  parsonality 

What  would  you  lika  to  conpara  it  to?  sax-activity 


TEXT  SKETCH: 

introduction 

introduction 

conpariaon 

conclusion 

SELECT  KNOWLBDQC  VISTA  {(parsonality  sax-activity )  parsonality  sax-activity  instability  ins 

tabillty } 

GENERATE  RELEVANT  PROPOSITION  POOL 
GENERATE  DISCOURSE  PLAN: 

(dafinition  attributiva  dafinition  attributiva  conpara-contrast  infaranca) 

GLOBAL  FOCUS  (DISCOURSE  TOPIC)  »>  (parsonality  sax-actlvlty ) 

LOCAL  FOCUS  PREFERENCE  »>  (parsonality  aax-activity ) 

PREDICATE  SELECTED  mm> 

(dafinition  ( < obsarvation  parsonality)) 

( ( obsarvation )  ) 

((function  ( stabi 1 i ty-dataction ) )  (location  (patiant)))) 

LOCAL  FOCUS  PREFERENCE  ••>  (parsonality  sax-activity  obsarvation) 

PREDICATE  SELECTED  «■> 

(attributiva  ( ( obsarvation  parsonality) )  ((valua  likallhood  indaf  four))) 

LOCAL  FOCUS  PREFERENCE  ««>  (parsonality  sax-activity) 

PREDICATE  SELECTED  «»> 

(dafinition  ( (obsarvation  sax-activity) ) 

( ( obsarvation ) ) 

( ( function  ( intraparsonal-bahavior ) ) ) ) 

LOCAL  FOCUS  PREFERENCE  (parsonality  sax-activity  obsarvation) 

PREDICATE  SELECTED  ••> 

(attributiva  ((obsarvation  sax-activity))  ((valua  likallhood  indaf  four))) 

LOCAL  FOCUS  PREFERENCE  ■»>  (parsonality  sax-activity  I 
PREDICATE  SELECTED  t»> 

( conpa ra-cont ras t  ((parsonality)  (sax-activity)) 

((class  diffarant)  ( typa  sinilar)  (importanca  sinilar))) 

LOCAL  FOCUS  PREFERENCE  ««>  (parsonality  sax-activity  class  typa  importanca) 

PREDICATE  SELECTED  «>> 

(infaranca  ((obsarvation  parsonality)  (obsarvation  sax-activity)) 

((antity  sinilar  nona))) 

SURFACE  FORM 

A  parsonality  obsarvation  is  an  obsarvation  for  stability-detection  located  in  ^  i  t  n  *•  . 

It  has  a  likallhood  valua  of  four. 

A  sax-activity  obsarvation  is  an  obsarvation  for  int r ape r sona 1-beha vi o r  . 

It  has  a  llkalihood  valua  of  four. 

Parsonality  and  it  hava  a  diffarant  class,  a  similar  type  and  a  similar 
It  and  tha  sax-activity  obsarvation,  therefore,  are  similar  entities. 

PROCESSING  TIME 

CPU  tlna  usad  for  procassing:  8794 

CPU  tina  usad  for  9arba9a  Collaction:  3050 


nil 

->  ( axit ) 


t 


9«aaytf .out 


TUO  sop  1  11:40:50  1907 


Prons  Lisp,  Opus  30.79 
-•>  (includo  ■sin) 

(fool  aoin.o] 
t 

Ploaso  ontor  tho  dooaln  dictionary  fil«  naao?  nouropeychology . di ct 
[load  nouropsycho logy. diet] 

What  Is  tho  douain  of  discourso?  nouropsychology . kb 
[load  nouropsychology. kb) 

Do  you  wish  DEPZNfi,  EXPLAIN,  or  COMFAR87  oxplain 
What  do  you  wish  to  know  about?  Itoaporal 


TEXT  SKETCH: 

roason 

ovidonco 

SELECT  KNOWLEDGE  VISTA  >«>  ((Itoaporal)  Icoaporal  naning  instability  lof t-hoaispharo ) 
OENBRATE  RELEVANT  PROPOSITION  POOL 
GENERATE  DISCOURSE  PLAN: 

(causo-offoct  attributivo  att r ibut i vo ) 

GLOBAL  POCUS  (DISCOURSE  TOPIC)  ••>  (Itooporsl) 

LOCAL  POCUS  PREPERCNCE  •«>  (Itoaporal) 

PREDICATE  SELECTED  ««> 

(causo'of fact  ( (lobo  Itoaporal)) 

((daaagod  nil  nono)) 
nil 

((syapton  naaing)  (synptoa  instability)) 

( ( daaago ) ) ) 

LOCAL  POCUS  PREFERENCE  »«>  (naaing  instability  damagod  daaago  Itoaporal) 

PREDICATE  SELECTED  «•> 

(attributivo  ((syaptoa  naaing))  ((valuo  llkolihood  indof  two))) 

LOCAL  POCUS  PREFERENCE  ««>  (naaing  Instability  daaagod  daaago  Itoaporal) 

PREDICATE  SELECTED  ■•> 

(attributivo  ((syaptoa  instability))  ((valuo  llkolihood  indof  four))) 

SURFACE  PORK 

Tho  lot t-toaporal  lobo  is  daaagod  bocauso  tho  naaing  synptoa 
and  tho  instability  syaptoa  indieato  daaago. 

Tho  naaing  syaptoa  has  a  llkolihood  valuo  of  two. 

Tho  instability  syaptoa  has  a  llkolihood  valuo  of  four. 


PROCESSING  TIKE 

CPU  tlao  UBOd  for  procossing:  7601 

CPU  tino  usod  for  gsrbago  Colloctlon:  2699 

nil 

- >  ( o* it ) 


1 


qmuujl .out 


Turn  S*p  1  11:40:07  19S7 


Prans  Lisp,  Opus  38.79 
->  (includ*  Bsln) 

(fssl  aaia.ol 
t 

Plssss  sntsr  ths  doaain  dictionary  fila  naaa?  nauropsychology . diet 
[load  nauropsychology . diet ] 

What  is  tba  domain  of  dlscoursa?  nauropsychology . kb 
(load  nauropsychology . kb ] 

Do  you  wish  DBPIHE,  EXPLAIN,  or  COMPARE?  daflna 
What  do  you  wish  to  know  about?  laf t-haaisphara 


TEXT  SKETCH: 


introduction 

dascription 

axaapla 

SELECT  KNOWLEDGE  VISTA  ( ( laf t-haaisphara )  laf t-haai spha ra  If  rental  Ipariatal  Isubcortax  Ita 

aporal  loccipital  brain) 


hara ) 


ha  ra  ) 


GENERATE  RELEVANT  PROPOSITION  POOL 


GENERATE  DISCOURSE  PLAN: 

(dafinition  sttributiva 
constituant 
sttributiva 
sttributiva 
sttributiva 
sttributiva 
sttributiva 
illustration) 

GLOBAL  FOCUS  (DISCOURSE  TOPIC)  ■■>  ( laf t>haai Spha ra ) 

LOCAL  FOCUS  PREFERENCE  m»>  ( laf t>haaisphara ) 

PREDICATE  SELECTED  ■«> 

(dafinition  ( ( laf t-haai spha ra ) ) 

( ( ragion ) ) 

({location  (brain  laft))  (function  ( f aatura-racognit ion ) ) )  l 

LOCAL  FOCUS  PREFERENCE  (ragion  laf t-haaisphara ) 

PREDICATE  SELECTED  ••> 

(Sttributiva  (( ragion  laf t-haaisphara ) ) 

((valua  iaportanca  indaf  tan  ralativa))} 

LOCAL  FOCUS  PREFERENCE  ««>  ( laf t-haaispha ra ) 

PREDICATE  SELECTED  »«> 

(constituant  (( laf t-haai spha ra ) ) 

((loba  fiva  nona  ) ) 
nil 

( ( 1 oba  If  rental ) 

(loba  Ipariatal) 

(loba  Isubcortax) 

(loba  Itaaporal) 

( loba  loccipital ) )  ) 

LOCAL  FOCUS  PREFERENCE  (loba  Ifrontal  Ipariatal  Isubcortax  Itanporal  loccipital  left-hemisp 


PREDICATE  SELECTED  >■> 

(attrlbutiva  ((loba  Ifrontal))  ((valua  iaportanca  indaf  fiva  ralativa))) 

LOCAL  FOCUS  PREFERENCE  ■■>  (Ifrontal  loba  Ipariatal  Isubcortax  Itemporal  loc-;  sp!'  l-if  -h-mi'-p 
PREDICATE  SELECTED  ««> 

(sttributiva  ((loba  Ipariatal))  ((value  importance  indef  three  relati--e'' 

LOCAL  FOCUS  PREFERENCE  »=>  (Ipariatal  Ifrontal  lobe  Isubcortex  Itemp-ial  I '•  ,,  .i  i  .  i 

PREDICATE  SELECTED  ■»> 

(at*'  ibutiva  ((loba  Isubcortax))  ((valua  importance  indaf  fiva  relative))) 

LOCAL  FOCUS  PREFERENCE  >>>  (Isubcortax  Ipariatal  Ifrontal  loba  Itanporal  loccipital  laft-hamisp 


PREDICATE  SELECTED  »> 

(sttributiva  ((loba  Itaaporal))  ; (valua  iaportanca  indaf  aight  ralativa)) 


LOCAL  FOCUS  PREFERENCE  »*>  (Itanporal  Isubcortax  Ipariatal  Ifrontal  loba  loccipital 

)  )  ) 


laf t-haaisp 


PREDICATE  SELECTED  "•> 

(sttributiva  ((Toba  loccipital))  ((valua  iaportanca  indaf  thraa  ralativa)) 


fMayT.out 


Tu«  S«p  1  11:40:07  1907 


LOCAL  POCUS  PHBPSRBMCE  «>>  (locclpltal  lt«apor*l  ltubcort«x  Ipariatal  Xfrental  lob«  laft-haaisp 

PRBDICATB  SEL8CTBD  ••> 

( llluatration  ((loba  XoeclpltalM 

( (loba) ) 

((location  (akull  human))  (function  (vision)))) 


SURFACE  FORM 


A  Xaf t-haniaphara  la  a  ra9ion  for  f aatura>racognition  Xocatad  in  tha  laft  brain. 
It  haa  a  ralativa  importanca  valua  of  tan. 

It  contains  flva  lobas:  tha  laft-frontal  loba,  tha  laft-pariatal  loba, 
tha  laf t-aubcortax  loba,  tha  laf t-tamporal  loba  and  tha  laf t-occipital  Xoba. 

Tha  laft-frontaX  loba  haa  a  ralativa  importanca  valua  of  fiva. 

Tha  laf t-parlatal  loba  haa  a  ralativa  importanca  valua  of  thraa. 

Tha  laf t-subcortax  loba  has  a  ralativa  importanca  valua  of  fiva. 

Tha  laf t-*tamporal  loba  haa  a  ralativa  Importanca  valua  of  sight. 

Tha  laf t-'Occipital  loba  haa  a  ralativa  importanca  valua  of  thraa. 

It,  for  axampla,  is  a  loba  for  vision  locatad  in  tha  human  skull. 


PROCBSSIRd  TIME 

CPU  tlma  usad  for  procaaaing:  10403 

CPU  tima  uaad  for  garbaga  Collaction:  3452 

nil 

->  (axit) 


1 


.QUt 


Tu*  S«p  1  11:42:56  1987 


OOp8-p< 


d8a«9« 


dB««9« 


damag* 


Frans  Irisp,  opus  38.79 
->  (lacluda  aain) 

(faal  aaln.o] 
t 

Plaasa  antar  tha  doaaln  dictionary  flla  naaa7  nauropsychology . diet 
{load  nauropsychology .diet] 

What  is  tha  doaain  of  discouraa?  nauropsychology . kb 
(load  nauropsychology . kb ] 

Do  you  wish  DBPINB,  EXPLAIN,  or  COKPARB?  axplain 
What  do  you  wish  to  know  about?  1-cog-f laxibility 


TBXT  SKETCH: 

raaaon 

avldanea 

SELECT  KNOWLEOOE  VISTA  »>  ( { 1-cog-f laxibility )  1-cog-f laxibility  a-n  a-n-parsavaration  loops  1 
irsavaratlon  Wisconsin  Ifrontall 

dCNERATE  RELEVANT  PROPOSITION  POOL 

GENERATE  DISCOURSE  PLAN: 

(causa-af fact  attributlva  attributlva  attributiva  attrlbutlva  attributiva) 

GLOBAL  FOCUS  (DISCOURSE  TOPIC)  mm>  ( l>cog-f laxibi 1 i ty ) 

LOCAL  FOCUS  PREFERENCE  «•>  ( 1-cog-f laxibility ) 

PREDICATE  SELECTED  «■> 

(  cauaa->af  f  act  ((syapton  l>cog'>f  laxibi  1  Ity  )  ) 

( ( aanlfaet ) ) 
nil 

( (obsarvation  a-n) 

(obsarvation  a-n-parsavaration) 

(obsarvation  loops) 

(obsarvation  loops^parsavarat ion ) 

(ob'^arvation  Wisconsin)  ) 

( (daaaga) ) ) 

LOCAL  FOCUS  PREFERENCE  •■>  (a-n  a-n-parsavaration  loops  loops-parsavaration  Wisconsin  nanifast 
l-cog-flaxlbility) 

PREDICATE  SELECTED  «•> 

(attributiva  ((obsarvation  a-n))  ((valua  likalihood  indaf  fiva))) 

LjCAL  focus  PREFERENCE  ■«>  (a-n  a-n-parsavaratlon  loops  loops-parsavaration  Wisconsin  aanifast 
1-cog-f laxibility ) 

PREDICATE  SELECTED  »-> 

(attributiva  ( (obsarvation  a-n-parsavaratlon) ) 

((valua  likalihood  indaf  savan))) 

LOCAL  FOCUS  PREFERENCE  «>>  ( a-n-parsa va rat lon  a-n  loops  loops-parsavaration  Wisconsin  aanifast 

1-cog-f laxibility ) 

PREDICATE  SELECTED  ««> 

(attributiva  ((obsarvation  loops))  ((valua  likalihood  indaf  nina))) 

LOCAL  FOCUS  PREFERENCE  •*>  (loops  a-n-parsavaration  a-n  loops-parsavaration  Wisconsin  aanifast 
1-cog-f laxibility ) 

PREDICATE  SELECTED  ««> 

(attributlva  ( (obsarvation  1 oops-parsavarat ion ) ) 

((valua  likalihood  indaf  six))) 

LOCAL  FOCUS  PREFERENCE  ■»>  ( 1  oops-ps  r  sava  r  a  t  ion  loops  m-n-pa  r  sa  va  c  a  t  ion  m-n  wic'i  n-  in 
1-cog-flaxibillty) 

PREDICATE  SELECTED  »•> 

(attributiva  ((obsarvation  Wisconsin))  ((value  likelihood  indef  nineji) 


SURFACE  FORM 

Tha  laft-cognitiva-f laxibility  symptom  is  manifest  because  tne  m-n  obse i ’  a t  ion , 
tha  m-n-parsavaration  obsarvation,  tha  Is^ops  obsarvation.  the  I oops-pe r se ve ra t i on 
tha  obsarvation  and  tha  Wisconsin  obsarvation  indicata  damaga. 

Tha  si-n  obsarvation  has  a  likalihood  valua  of  fiva. 

Tha  M-n-parsavaration  obsarvation  has  a  likalihood  valua  of  savan. 

Tha  loops  obsarvstion  has  a  likalihood  valua  of  nina. 

Tha  loops-parsavaration  obsarvation  haa  a  likalihood  valua  of  six. 

Tha  Wisconsin  obsarvstion  has  s  likalihood  valua  of  nina. 

PROCESSING  TIME 

CPU  tin#  usad  for  procasaing:  9001 

CPU  tin#  usad  for  garbaga  Collaction:  3003 


T 


r 


I  9*uy».oat  Tu«  S«p  1  11:45:59  1957 

FrAns  Lisp,  Opus  38.79 
->  (iaclud#  aaln) 

IfAtl  aalii.o] 
t 

FIaaaa  AntAt  th«  doaftln  dictionary  fllo  n«««7  photo. diet 
(load  photo. diet) 

What  is  tho  doaain  of  dlflcoursa?  photo. kh 
(load  photo. kb] 

Do  you  wiah  OBFIHE,  EXPLAIN,  or  COMPARE?  dafina 
What  do  you  wish  to  kno«f  about?  aquipaant 


TEXT  SKETCH: 

introduction 

dasetiption 

axanpla 

SELECT  KMOWLEDdE  VISTA  ■■>  (<aquipaant)  aqulpaant  canara  lighting  tripod  photography) 

dSNERATE  KSLEVAMT  PROPOSITION  POOL 

GENERATE  DISCOURSE  PLAN: 

(dafinition  attrlbutiva 
constituant 
attributiva 
attributiva 
attributiva 
illustration) 

global  focus  (DISCOURSE  TOPIC)  ••>  (aquipnant) 

local  focus  preference  ««>  (aquipnant) 

PREDICATE  SELECTED  ««> 

(dafinition  ((fatUt  aquipnant)) 

( (fault) ) 

((inatruaant  (function  physical))  (location  (caaara)))} 

LOCAL  FOCUS  PREFERENCE  •»>  (fault  aqulpnant) 

PREDICATE  SELECTED  ««> 

(attributiva  ((fault  aquipnant))  ((valu#  inportanca  indaf  thraa  ralativa))) 

LOCAL  FOCUS  PREFERENCE  •«>  (aquipnant) 

PREDICATE  SELECTED  ««> 

( const ituant  < ( aquipnant ) ) 

((instruaant  thraa  nona)) 
nil 

((instrunant  canara)  (fault  lighting)  (instrunant  tripod))) 

local  focus  PREFERENCE  ««>  (instrunant  canara  lighting  tripod  aquipnant) 

PREDICATE  SELECTED 

(attributiva  ((inatrunant  canara))  ((valua  inportanca  indaf  nina  ralativa))) 

LOCAL  FOCUS  PREFERENCE  ■•>  (canara  instrunant  lighting  tripod  aquipnant) 

PREDICATE  SELECTED  »> 

(attributiva  ((fault  lighting))  ((valua  inportanca  indaf  tan  ralativa))} 

LOCAL  FOCUS  PREFERENCE  ■>>  (lighting  canara  instrunant  tripod  aquipnant  ) 

PREDICATE  SELECTED  i— > 

(attributiva  ((instrunant  tripod))  ((valua  inportanca  indaf  thraa  ralativa))) 

LOCAL  FOCUS  PREFERENCE  »»>  (tripod  lighting  canara  instrument  aquipment  ) 

PREDICATE  SELECTED  •«> 

(illustration  ((instrunant  tcipod)) 

( ( instrunant )  ) 

((instrunant  (lags  alluminum))  (function  (support  camai'ai'<> 


SURFACE  FORM 

An  aquipnant  fault  is  a  fault  with  a  physical  function  locat>d  in  a  cameva- 
Zt  has  a  ralativa  inportanca  valua  of  thraa. 

It  contains  thraa  instrunants:  a  canara  instrunant,  a  lighting  instrunant 
and  a  tripod  instrunant. 

Tha  canara  instrunant  has  a  ralativa  inportanca  valua  of  nina. 

Tha  lighting  instrunant  has  a  ralativa  inportanca  valua  of  tan. 

Tha  tcipod  instrunant  has  a  ralativa  inportanca  valua  of  thraa. 

It,  for  axanpla,  is  an  instrunant  with  alluninun  lags  for  canara  support. 

PROCESSING  TIME 

CPU  tina  usad  for  procasslng:  11147 

CPU  tina  uaad  for  garbaga  collaction:  3794 


F 


A 


1  9«Bayl0.out  Tu«  S«p  1  11:49:37  1987 

Prans  Lisp,  Opus  38.79 
->  (includ*  Bain) 

(fasl  Baln.ol 

y  t 

Plaas#  antar  tha  doaain  dictionary  fila  nsaa?  photo. diet 
{load  photo. diet] 

What  is  tha  domain  of  discoursa?  photo. kb 
(load  photo. kb] 

Do  you  wish  DCPIME,  EXPLAIN,  or  COMPARE?  daflna 
Nliat  do  you  wish  to  know  about?  photography 


► 

1 

r 


TEXT  SKETCH: 

Int  r oduc  t i on 
dascription 

axampla 

SELECT  KNOWLEDGE  VISTA  «>>  ({photography}  photography  aquipmant  tachniqua  atyla  axprassien) 

OENCRATE  RELEVANT  PROPOSITION  POOL 

GENERATE  DISCOURSE  PLAN: 

(dafinition  attributiva 
constituent 
attributiva 
attributiva 
at t  r ibut 1 va 
i 1 lus  t  ra  t ion  } 

OLOBAL  focus  (DISCOURSE  TOPIC)  ••>  (photoqraphy ) 

LOCAL  POCUS  PREFERENCE  ««>  (photography) 

TREDICATE  SELECTED  *a> 

(dafinition  ( (photoqraphy) ) 

( (art-form) ) 

((function  (imagas  racording))  ( axtarna 1-1  oca t i on  (film)))) 

LOCAL  POCUS  PREFERENCE  »*>  (art-form  photography) 
pREOicATE  seiEcreD 

(attributiva  ((art-form  photography))  ((value  importance  indaf  tan  relative))) 

LOCAL  POCUS  PRSPERENCE  -•>  (photography) 

PREDICATE  SELECTED  «•> 

( constituent  ( ( photography ) ) 

((fault  three  none)) 
nil 

((fault  aquipmant)  (fault  tachniqua)  (fault  style))) 

LOCAL  POCUS  PREFERENCE  *•>  (fault  equipment  technique  style  photography) 

PREDICATE  SELECTED  *«> 

(attributive  ((fault  equipment))  ((value  importance  indaf  three  relative))) 

LOCAL  FOCUS  PREFERENCE  »«>  (equipment  fault  technique  style  photography) 

PREDICATE  SELECTED  ««> 

(attributiva  ((fault  technique))  ((value  importance  indcf  four  relative))) 

LOCAL  FOCUS  PREFERENCE  »>  (technique  equipment  fault  style  photography) 

PREDICATE  SELECTED  ««> 

(attributive  ((fault  style))  ((value  importance  indaf  nine  relative))) 

LOCAL  FOCUS  PREFERENCE  >•>  (style  technique  equipment  fault  photography) 

PREDICATE  SELECTED  *-> 

(illustration  ((fault  style))  ((fault))  ((instrument  (expression  persona)'*'' 


SURFACE  FORM 


Photography  is  an  art-form  for  recording  images  on  film. 

It  has  a  relative  importance  value  of  ten. 

It  contains  three  faults:  an  equipment  fault,  s  technique  fault  and  a  style  fault. 
The  equipment  fault  has  a  relative  importance  value  of  three. 

The  technique  fault  has  a  relative  importance  value  of  four. 

The  style  fault  has  a  relative  importance  value  of  nine. 

It,  for  example.  Is  a  fault  with  personal  expression. 

PROCESSING  TINE 

CPU  time  used  for  processing:  11143 

CPU  time  used  for  garbage  Collection:  3822 

nil 


